Upload einer Datei über POST mit Forschrittsanzeige?

[Z4ppy]

Mit diesem Code (natürlich entsprechend für meine Umstände angepasst bzgl. Namen der Kompos usw.) hab ich das nun mal probiert:

Delphi-Quellcode:

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount; 
  Application.ProcessMessages;
end;

Allerdings ist da die ProgressBar bereits nach ca. einer Sekunde ganz rechts - bei meinen 60 kB/s Upload und einer 1,5 MB-Datei eher unrealistisch ^^
Wie ich am Rest meines Programmes erkennen kann, geht der Upload auch weiter...

Wieso stimmt das nicht und wie kann ich es so hinkriegen, dass es stimmt?

MfG Z4ppy