Beim FTP-Upload anzeigen, wieviel KB hochgeladen wurden

[hitmiccs]

Guten Morgen.

Ich wollte folgendes realisieren - mit folgendem Code (Beispiel) lade ich eine Datei auf meinen FTP-Server:

Delphi-Quellcode:

   
procedure TForm1.Button1Click(Sender: TObject);
begin
 FTP1.Connect;
 FTP1.Put('C:\irgendeinedatei.avi','irgendeinedatei.avi',false);
 FTP1.Disconnect;
end;

procedure TForm1.FTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
 Application.ProcessMessages;
 ProgressBar1.Position:=0;
 ProgressBar1.Max:=AWorkCountMax;
end;

procedure TForm1.FTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 Application.ProcessMessages;
 ProgressBar1.Position:=AWorkCount;
end;

procedure TForm1.FTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
 ProgressBar1.Max := 100;
end;

Nun hätte ich gerne während des Uploads angezeigt, wieviel von der Datei schon hochgeladen wurde - wenn möglich in KB. Eine Idee hätte ich schon, die Größe der auf dem Server existierenden Datei dauernd mit der auf meinem PC zu vergleichen während des Uploads. Aber wie realisiere ich das? Scheinbar haben zu wenige es, hier und in anderen Delphi-Foren, bisher versucht - denn jede Suche blieb bislang erfolglos

Danke und Grüße,
hitmiccs

€dit: Benutze die Indykomponenten.