Statusbar bei Indy FTP

[freakTAB]

arbeite grad wieder an meinem FTP Client und habe das Problem das ich diesen Code in OnWorkBegin und OnWork einsetze:

Delphi-Quellcode:

procedure TForm1.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  l.Caption := 'Download gestartet';
  PG_DL.Max := AWorkCountMax;
  PG_DL.Position := 0;
end;

procedure TForm1.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  l.Caption := 'Download';
  PG_DL.Position := AWorkCount;
end;

Das Problem die ProgressBar (PG_DL) bewegt sich kein Stück wenn ich mit FTP.Get irgendetwas runterlade - irgendwie scheint es so als dass das Programm sowieso stoppt solange ich etwas herunterlade

Wie umgehe ich das?