Загрузка в отдельном потоке TIdHTTP всё равно "замораживает" форму

[Cold_Night]

Привет всем! Собственно, сабж. Делаю загрузку через TIdHTTP в отдельном потоке TThread.

 type TMyThread = class(TThread); // мой класс-потомок TThread;
 private
 //
 public;
 procedure Execute; override;
end;

...

  procedure TMyThread.Execute;
var F: TFileStream;
 begin
  with Form1 do
 begin
  F:=TFileStream.Create(LabeledEdit2.Text, fmCreate);
 IdHTTP1.Get(LabeledEdit1.Text, F);
 F.Free;
end;
end;

Ну и потом создаю конструктором Create с параметром True объект моего класса, и вызываю методы Resume и Execute в обработчике нажатия кнопки. Однако форма всё равно замерзает. В чём моя ошибка? Заранее спасибо

[mosq]

может тут:

 IdHTTP1.Get(LabeledEdit1.Text, F)

сначала грузить в простую переменную, а потом через synchronize присваивать Едиту?

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

type TMyThread = class(TThread);
 private
  FURL:string;
  FFile:string;
 public
  procedure Execute; override;
  constructor Create(AURL:string;AFile:string);
end;

constructor TMyThread.Create;
begin
 inherited Create(true);
 FFile:=AFile;
 FURL:=AURL;
 FreeOnTerminate:=true;
 Resume;
end;

procedure TMyThread.Execute;
var F:TFileStream;
     H:TIdHTTP;
begin
 H:=TidHTTP.create(nil);
 F:=TFileStream.Create(FFile,fmCreate);
 H.Get(FURL,F);
 H.Free;
 F.Free;
 Terminate;
end;

примерно так.
в кнопке начать закачку, пишем

TMyThread.Create(LabeledEdit1.Text,LabeledEdit2.Text);

запомните, лучше всего вообще исключить доступ потока к компонентам формы, иначе смысл от потока?
(или уж по крайней мере синхронизацию делать)

и вызываю методы Resume и Execute в обработчике нажатия кнопки.

я выделенного не понял, зачем?

[Alter]

Вот есть исходник качалки, типа ДаунлоадерМастер. Вообще-то есть компонент IdAntiFreeze(должен быть только один на всю программу), избавит от зависания во время работы idHttp.