TThread.WaitFor verursacht einfrieren des Programmes

[MrKnogge]

Tatsache,

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 := false; 
      OnWork := OnThreadWork; 
      OnWorkBegin := OnThreadWorkBegin; 
      URL := DownFiles[i]; 
      FileName := FileNames[i]; 
      resume; 
      WaitFor;
      Free;
    end; 
  end; 
end;

Funktioniert. Vielen Dank euch allen