Kein wirklicher Geschwindigkeitsvorteil durch Threads?

[Ginko]

Wenn ich das anhalten aus der Schleife hole wirds auch nicht schneller.

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
  DateienLst: TSearchRec;
  id: Cardinal;
  ExitCode : Cardinal;
  tp : TThreadParams;
  threadhandle: THandle;
begin
  if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then
    try

      repeat
        tp.Dat:= Directory+DateienLst.Name;
        threadhandle:= system.BeginThread(nil,0,@Umwandler,@tp,0,id);
      until FindNext(DateienLst) <> 0;


      WaitForSingleObject(threadhandle, INFINITE);
      GetExitCodeThread(threadhandle, ExitCode);
      case ExitCode of
        IDYES: Writeln('Benutzer hat "Ja" angeklickt.');
        IDNO: Writeln('Benutzer hat "Nein" angeklickt.');
      end;
      CloseHandle(threadhandle);
    finally
      SysUtils.FindClose(DateienLst);
    end;
end;