Gauge Position ändern bei dem Upload einer Datei ?

[thomas2009]

Hallo


wie könnte ich ein Gauge für mein Upload einer Datei verbinden,
damit ich wissen, ob die Datei schon erfolgreich hochgeladten wurde oder noch nicht ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: string;
begin
  self.IdFTP1.Host := 'ftp.myweb.de';
  self.IdFTP1.Username := 'user1';
self.IdFTP1.Password := 'passwort1';
  Label1.Caption := 'Connecting...';
  application.ProcessMessages;
  self.IdFTP1.Connect;
  f := 'C:\test.bmp';
  if IdFTP1.Connected then begin
      application.ProcessMessages;
      self.IdFTP1.ChangeDir('/');
     application.ProcessMessages;
     IdFTP1.Put(f, ExtractFileName(f));
     application.ProcessMessages;
  end;
end;