Ftp Fortschrittsanzeige

[Lamy]

Hi!
Mal wieder plagt mich ein Problem:
Und zwar will die Fortschrittsanzeige ganz und gar nicht den Fortschritt anzeigen, seht selbst:
Der Upload funzt mit Statusanzeige, ansonsten gar nix. Außerdem zeigt er die Geschwindigkeit falsch an.
Woran kanns liegen?

Delphi-Quellcode:

PROCEDURE TForm3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  CONST AWorkCount: Integer);
VAR S: STRING;
  TotalTime: TDateTime;
  H, M, Sec, MS: Word;
  DLTime: Double;
BEGIN

  //Errechnen der Transfergeschwindigkeit:
  TotalTime := Now - STime;
  DecodeTime(TotalTime, H, M, Sec, MS);
  Sec := Sec + M * 60 + H * 3600;
  DLTime := Sec + MS / 1000;
  IF DLTime > 0 THEN
    AverageSpeed := (AWorkCount / 1024) / DLTime;
  S := FormatFloat('0.00 KB/s', AverageSpeed);
  CASE AWorkMode OF
    wmRead: Form1.Lbspeed.Caption := 'Download speed ' + S;
    wmWrite: Form1.Lbspeed.Caption := 'Upload speed ' + S;
  END;

  //Aktualisieren der Fortschrittsanzeige:
  Form1.ProgressBar1.Position := AWorkCount;
END;

////////////

PROCEDURE TForm3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  CONST AWorkCountMax: Integer);
BEGIN
  Form1.ProgressBar1.Max := AWorkCountMax;
  Form1.ProgressBar1.Position := 0;
END;

Hier gibts den Client


Danke schonmal!

Lamy