Indy 10 - Progressbar arbeitet nicht mehr mit OnWork

[DeluxXx]

Schlag mich grade mit dem Selben Problem rum

Delphi-Quellcode:

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

und

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  //Aktualisieren der Fortschrittsanzeige:
  ProgressBar1.Position := AWorkCount;
end;

Upload Funktioniert aber eben die progressbar nicht