Upload wia IdHTTP - Fortschritt anzeigen???

[romber]

Hallo!

Ich lade auf den Server eine Datei hoch:

Code:

...
var 
PicData: TIdMultiPartFormDataStream; 

PicData := TIdMultiPartFormDataStream.Create; 
PicData.AddFile('file', 'C:\Datei.exe', 'application/zip'); 
IdHTTP1.Post('http://www.homepage.de/cgi-bin/loadPicture.pl?', PicData);
...

Ich möchte dem User auch zeigen, wie weit der Uploadprocess ist. Beim download ist klar:

Code:

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

Code:

...
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
Label1.Caption := IntToStr(AWorkCount div 1024) + ' Kb von ' + 
IntToStr(http.Response.ContentStream.Size div 1024) + ' Kb';
ProgressBar1.Position := AWorkCount;
application.ProcessMessages;
end;
...

Kann ich diese Code irgendwie modernisieren, sodass der Upload-Fortschritt angezeigt wird?