Запуск приложения и ожидание завершения

function ExecAndWait(const FileName,     // Запуск процесса
                     Params: ShortString; // и ожидание его завершения
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками}
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

while WaitForSingleObject(ProcInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;

var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation; // тут
  CmdLine: ShortString;

  if Result then
  begin
    while WaitForSingleObject(ProcInfo.hProcess, 50) <> WAIT_OBJECT_0 do // и тут
    Application.ProcessMessages;
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;