Gauge Position ändern bei dem Upload einer Datei ?

[thomas2009]

die Streifen in geht ganz schnell obwohl ich eine grosse datei uploade
dann arbeitet das Programm in Hintergrund ohne !

bevor ich mit einem Gauge anfange, habe ich mit einem Progressbar getestet

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
//  ProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
    ProgressBar1.Position := 0;
    label1.Caption:='OK';
end;
procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
ProgressBar1.Position :=AWorkCount;
end;

Die Datei wird erfolgreich hochgeladen ausser eine Fehlermeldung am Ende :
Eigenschaft Progressbar außerhalb des gültigen Bereichs

das 2. Problem
label1.Caption:='OK'; nur wenn er fertig ist mit upload, das wird aber sofort angezeigt, wenn ich auf das Button anklicke !