TIdHTTP + TprogressBar

[kta87]

Загружаю файл по ссылке через TIdHTTP, процесс загрузки пытаюсь отобразить через TprogressBar, но не выходит... Выводится только сообщения по окончанию загрузке, о том что все успешно загружено. Юзаю Delphi XE 2.

const
  MY_MESS = WM_USER + 100;
...
procedure TDownLoader.Execute;
var
  http: TIdHTTP;
  str: TFileStream;
begin
  inherited;
  http:= TIdHTTP.Create(nil);
  ForceDirectories(ExtractFileDir(ToFolder));
  str:= TFileStream.Create(ToFolder, fmCreate);
  try
    http.Get(url,str);
  finally
    http.Free;
    str.Free;
  end;
end;

procedure TUpdateModule.MyProgress(var msg: TMessage);
begin
 case msg.WParam of
   0:
    begin
      LoadStatus.Max:= msg.LParam;
      LoadStatus.Position:= 0;
    end;
   1: LoadStatus.Position:= msg.LParam;
 end;
end;

procedure TUpdateModule.thrTerminate(Sender: TObject);
begin
 ShowMessage('Новая версия программы успешно загружена');
end;

procedure TDownLoader.MyIdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 PostMessage(Application.MainForm.Handle, MY_MESS, 1, AWorkCount);
end;

procedure TDownLoader.MyIdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
 PostMessage(Application.MainForm.Handle, MY_MESS, 0, AWorkCountMax);
end;

[kta87]

Вопрос решен, не актуально более...