Problem z zamknieciem programu

Mam taki problem. Chcialbym uruchomic z poziomu delphi jakis inny program i przechwytywac moment w ktorym ten program jest zamykany. jak uruchomic juz wiem natomiast jak przechwycic moment zamkniecia niestety nie. jesli ktos moglby mi pomoc to bardzo prosze:) z gory dziekuje

ShellExecuteEx(Console);
repeat
WaitForSingleObject(Console.hProcess, 100);
GetExitCodeProcess(Console.hProcess, ExitCode);
until (ExitCode<>STILL_ACTIVE);