Mit Delphi eine Datei über ein HTTP Post Formular hochladen?

[CRYSTALiZE]

Ok

Code:

  MultiPartFormDataStream: TMsMultiPartFormDataStream; 




  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;              
  httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType;
  MultiPartFormDataStream.AddFormField('EinAnderesFeld', 'dadum');

  MultiPartFormDataStream.AddFile('meine_datei', 'C:\autoexec.bat', '');

  MultiPartFormDataStream.PrepareStreamForDispatch;
  MultiPartFormDataStream.Position := 0; 
    Response := httpMain.Post('http://www.microsoft.com/test.php', MultiPartFormDataStream);
  MultiPartFormDataStream.Free;

Diese CodeSchnippsel hab ich mir aus nem Thread da gesucht, aber kann ich irgendwie auch die Geschwindigkeit und den Fortschritt protokollieren / anzeigen?

Hab dazu nix gefunden.

MfG.