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;