TThread.WaitFor verursacht einfrieren des Programmes

[MrKnogge]

Ich hab resume vergessen, habs nun folgender Maßen geändert:

Delphi-Quellcode:

procedure TForm1.MyDownloadTest(DownFiles, FileNames: TStrings); 
var 
  i: integer; 
  Down: TDownThread; 
begin 
  for i := 0 to DownFiles.Count-1 do 
  begin 
    Down := TDownThread.Create(true); 
    with Down do 
    begin 
      FreeOnTerminate := true; 
      OnWork := OnThreadWork; 
      OnWorkBegin := OnThreadWorkBegin; 
      URL := DownFiles[i]; 
      FileName := FileNames[i];
      resume;
      WaitFor; 
    end; 
  end; 
end;

Nun läd er die erste Datei herunter, doch danach bricht das Programm mit der Fehlermeldung "Das Handle ist ungültig (6)." ab.