ProgressBar и загрузка

[Fok]

Для отправки файла использую TIdMultipartFormDataStream

 .....
  Stream := TIdMultipartFormDataStream.Create;
  Stream.AddFile('file', 'C:\1.txt', 'text/html');
   Memo1.text:=IdHTTP1.Post('http://....', Stream );
......

С отправкой файла ,проблем нет , но возникла потребность в отображении процесса загрузки файла с помощью ProgressBar

Но как это осуществить?

[Sibedir]

Только переделав TIdHTTP под себя

TMyIdHTTP = class (TIdHTTP)
...
end;

... и вперед

[Fok]

Может есть есчо какие варианты ?
отобразить процес выполнения строки IdHTTP1.Post('http://....', Stream );