Wieviel von der datei schon heruntergeladen?

[ghost007]

hallo,
ich habe jetzt folgendes problem, ich hab das tutorial mit mal angeschaut, und auch einiges verwertet, jetzt gehen nur irgendwie KB von meiner gedownloadeten datei verloren ...

Die Dateigröße ermittle ich so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  Label6.Caption:=IntToStr(idftp1.Size('/Downloads/Informatik/'+Combobox1.Text));
  max:=StrToFloat(Label6.Caption);
  Label6.Caption:=FloatToStr(max/1024)+'KB';
end;

Und die bereits übertragene KB anzahl so:

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  count,erg:real;
begin
  count:=AWorkCount;
  erg:=count/1024;
  Label9.Caption:=FloatToStr(erg)+'KB';
end;

Wenn der datei download fertig ist, besteht aber zwischen label6 und label9 eine differenz.
Wie kann das sein?
Gehen KB verloren?