Поток и WaitFor

[Alter]

Demo ver.

Если есть WaitFor, то главное окно подвисает? Он же должен транслировать сообщения.

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Enabled := False;
 T := TDownloadThread.Create(nil, True);
  try
 Button2.Enabled := True;
 ProgressBar1.Position := 0;
 T.OnProgres := FncProgres;
 T.URL := Edit1.Text;
 T.FilePath := Pat + 'Autoruns.zip';
 T.Resume;
 T.WaitFor;
  finally
 FreeAndNil(T);
 Button1.Enabled := True;
 Button2.Enabled := False;
  end;
end;

Так нормально, не подвисает.

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Enabled := False;
 T := TDownloadThread.Create(nil, True);
  try
 Button2.Enabled := True;
 ProgressBar1.Position := 0;
 T.OnProgres := FncProgres;
 T.URL := Edit1.Text;
 T.FilePath := Pat + 'Autoruns.zip';
 T.Resume;
 while not T.Terminated do
  Application.ProcessMessages;
  finally
 FreeAndNil(T);
 Button1.Enabled := True;
 Button2.Enabled := False;
  end;
end;

[Пепел Феникса]

Если есть WaitFor, то главное окно подвисает?

не совсем, поток вызвавший ожидание, ждет пока отработает другой поток.

Он же должен транслировать сообщения.

поток делает то что у вас написано, у вас написано ждать, он и ждет.