[richi]

Gracias coso y Neftali.
Pero lo que hice al final no se si sero la mas correcto, pero fue cambiar

Código Delphi [-]
     if (Esperar) then
        WaitForSingleObject(ProcInfo.hProcess, INFINITE);

por esto otro

Código Delphi [-]
     while (Esperar) do
     begin
       rdo:= WaitForSingleObject(ProcInfo.hProcess, 500);
       formUsar.refresh;

       if rdo = 0 then
         esperar := false;
     end;