Formular friert beim FTP-Download ein!

[ickehausen]

HI Leute,

ich möchte gern eine Datei (ca. 5MB groß, dadurch dauert der Download etwas länger) von einem FTP-Server downloaden. Das funktioniert auch, aber mein Formular friert dabei ein und erwacht erst wieder, wenn der Download komplett ist. Der ProgressBar bleibt leer. Ich habe neben dem IdFTP auch ein IdAntiFreeze auf meinem Formular, bewirkt aber nichts!



Hier folgt der Code:

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := 'ftp.domain.com';
  IdFTP1.Username := 'anonymous';
  IdFTP1.Password := '';
  IdFTP1.Connect;
  IdFTP1.ChangeDir('/');
  IdFTP1.Get('xyz.exe','C:\ttt\xyz.exe',true);
  IdFTP1.Quit;
  IdFTP1.Disconnect;
end;

Kann mir jemand helfen?