procedure TForm1.Timer1Timer(Sender: TObject);
var
ExitCode: DWORD;
begin
ProgressBar1.StepIt;
if GetExitCodeProcess(ProcHandle, ExitCode) then
begin
if not (ExitCode = STILL_ACTIVE) then
begin
CloseHandle(ProcHandle);
ProcHandle := 0;
end;
Timer1.Enabled := False;
end;
end;