Dateidownload mit IdHTTP - Anwendung freezed :|

[Lenny-k]

Ich hab einen HTTP download mit IdHTTP gemacht, und will den Status in einer TGauge und einem TPanel anzeigen!
Aber der Status wird nur in der TGauge angezeigt und die Anwendung ist frozen, während des Downloads... Obwohl ich ein Anti-Freeze auf dem Formular habe Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var gesamt,aktuell:integer;
begin
  gesamt:=IdHTTP1.Response.ContentStream.Size;
  aktuell:=AWorkCount;
  if gesamt>0 then begin
    Gauge1.Progress:=round(aktuell*100/gesamt);
    Panel1.Caption:=IntToStr(aktuell)+'Bytes von '+IntToStr(gesamt)+'Bytes downgeloadet!';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.Get('http://url-zu-download',TFileStream.Create('z:\test.abc',fmOpenReadWrite));
end;