Progressbar Fortschritt bei Laden einer Internetseite

[Bencher]

Danke erst mal
Hab das jetzt so realisiert

Delphi-Quellcode:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var i: Integer;
  begin
  Progressbar1.Max := ProgressMax;
  Progressbar1.Position := Progress;
end;

Ist das so richtig

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]