procedure SignalHandler(SigNum: Integer); cdecl;