Для отображения прогресса загрузки в ProgressBar, нужно в обработчике событий OnProgress компонента WebBrowser записать следующий код:

procedure TForm1.WebBrowser1Progress(ASender: TObject; Progress,
ProgressMax: Integer);
begin
Progressbar1.Max:=progressmax;
Progressbar1.Position:=progress;
end;