Fortschrittsanzeige bei FTP-download

[Gambit]

Hi,

es gibt von Luckie so ein schönes Beispiel, wo beim FTP-upload der Status und der Uploadfortschritt angezeigt wird:
Die Fortschrittsanzeige der Progressbar wird durch Properties von IdFTP realisiert und zwar mit folgenden Methoden:

Delphi-Quellcode:

procedure TFormFTPTransfer.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar.Position := AWorkCount;
  Application.ProcessMessages;
end;

procedure TFormFTPTransfer.IdFTPWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  ProgressBar.Position := 0;
end;

procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar.Max :=AWorkCountMax;
end;

Meines Erachtens müsste das Ganze doch beim Download ebenso funzen, tut es aber nicht, die Fortschrittsanzeige bewegt sich nicht.
Die Frage ist jetzt, warum wohl nicht...

Gruß

Wolle