FAQ - Запуск внешней программы и ожидание ее завершения

PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT);
VAR
  SI : TSTARTUPINFO;
  P  : TPROCESSINFORMATION;
BEGIN
 FILLCHAR( SI, SIZEOF( SI ) , 0 );
 WITH SI DO BEGIN
  CB := SIZEOF( SI);
  DWFLAGS := STARTF_USESHOWWINDOW;
  WSHOWWINDOW := 4;
 END;
 APPLICATION.MINIMIZE;
 CREATEPROCESS(NIL,'NOTEPAD.EXE',NIL,NIL,FALSE,CREATE_DEFAULT_ERROR_MODE,NIL,NIL,SI,P);
 WAITFORSINGLEOBJECT(P.HPROCESS,INFINITE);
 APPLICATION.RESTORE;
END;