WebBrowser и progressbar

[rus12]

При нажатии на кнопку открывается web-страница , как связать процесс открытия страницы с progressbar
вот как я пытался сделать:

procedure TForm1.Button2Click(Sender: TObject);
var
 Progress,ProgressMax: Integer;
begin
  WebBrowser1.Navigate(' адрес страницы');
 
 if Progress>0 then
   begin
     ProgressBar1.Max:= ProgressMax ;
     ProgressBar1.Position := Progress; 
   end { Progress>0 }
 else
    ProgressBar1.Position:= 0 ;

Но progressbar загружается моментально.

[artemavd]

Ясень пень, что он будет моментально загружаться. Ты же максимальному значению присваиваешь сразу максимальное. Как вариант можно сделать так. Узнать размер загружаемой страницы, поделить его на какое-то значение и передавать результат деления в шаг прогрессбара. Я бы покопал в этом направлении.