Webbrowser lade-Zeit Meldung

[Delphiturbo]

Hallo
manch mal dauert 10 bis 20 Sekunden bis die Seite in Webbrowser geladen wird !!!
Wie kann man mindestens eine Meldung für Anwender zeigen z.B. Programm Lädt ...
Oder ein Splash oder irgendwas

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(ExtractFilePath (Application.ExeName) +
    'info.html');
// ...

[toms]

Hallo

Im OnBeforeNavigate2 Ereignis kannst du deinen Splash Screen anzeigen und bei OnDocumentComplete2 wieder ausblenden.