Gauge Position ändern bei dem Upload einer Datei ?

[thomas2009]

Mit dem Komponent "IdAntifreeze" wird nun tatsächlich das Formular nicht gefroren
Das Problem nun ist das gauge geht sofort nach dem Klick auf 100% obwohl die Datei noch bei dem Hochladen sich befindet !
Woran liegt das vielleicht ?

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

 //Gauge1.MaxValue := Response.ContentLength;
 Gauge1.Progress := AWorkCount;
 Gauge1.Update;

    Application.ProcessMessages;
end;

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
Gauge1.MaxValue:=AWorkCountMax;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Gauge1.Visible:=true;

  IdFTP1.Host := 'ftp.xxxx.de';
  IdFTP1.Username := 'xxxx';
  IdFTP1.Password := 'xxxx';
  IdFTP1.Connect;
 // IdFTP1.ChangeDir('/');
  IdFTP1.put('C:\test.bmp','test.bmp',true);
  //IdFTP1.Quit;
  IdFTP1.Disconnect;
end;