speedanzeige funktioniert nicht richtig

[Paul]

hi,

die INDY-speedanzeige funktioniert nicht richtig????

wird alles wunderbar angezeigt nur der speed wird etwas langsam angezeigt???
angezeigt wird 0.20kb/s aber mit 70kb/s läd er in wirklichkeit runter

Delphi-Quellcode:

procedure TForm1.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: GroupBox3.Caption :=' DownloadSpeed - ' + S; // hier würd ich es gern in der ProgressBar1 anzeigen lassen 
  end; 

  //Aktualisieren der Fortschrittsanzeige: 
  ProgressBar1.Position := AWorkCount; 
end;

bin über jede hilfe dankbar

mfg