[dec]

Hola,

Creo que deberías hacer algo parecido a esto:

Código Delphi [-]
  repeat
    salida := WaitForSingleObject(ExecInfo.hProcess, 500);
    Application.ProcessMessages;
  until (salida <> WAIT_TIMEOUT);