WaitForSingleObject Problem

[Gehstock]

Delphi-Quellcode:

var
 I: Integer;
 iFHandle,Process : THandle;
begin
 iFHandle:=FileCreate(GetTempDir+'\Convert.exe');  //Holt die Exe aus nem Byte Array um nicht in den Ressourcen aufzutauchen
         if iFHandle<>INVALID_HANDLE_VALUE then
          begin
           if FileWrite(iFHandle,Converter,SizeOf(Converter))=SizeOf(Converter) then
            FileClose(iFHandle);
          end; // if iFHandle
 Err := ShellExecute(Process,
                    'Open',
                    PChar('"'+GetTempDir+'\Convert.exe"'),
                    Pchar('"'+AFileName+'"'),
                    Pchar(ExtractFilePath(Application.Exename) ),
                    SW_Hide);
  if Err > 32 then
Begin
  if WaitForSingleObject(Process, 1000) = WAIT_OBJECT_0 then  //An dieser stelle hängts
//  Sleep(1000);   //Meine alte Lösung die auch funktioniert (könnte aber auf langsamen Rechnern Probleme machen)
try
    Sl.Clear;
    Sl.LoadFromFile(AFileName);

versuche auf die Fertigstellung des Programms zu warten (Console) klappt aber leider nicht