Adresse des WebBrowsers

[falsch]

Hey,
wenn ihr diesen Titel gelesen habt, werdet ihr euch wahrscheinlich aufregen, da dass schon tausend mal gefragt wurde. Jedoch wenn man so etwas schreibt:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  ShowMessage(URL);
end;

kommt bei Webseiten mit viel Werbung immer die Adresse der zuletzt geladenen Werbung. Außerdem findet man manchmal (zum Beispiel bei Google) about:blank.
Meine Frage also, gibt es eine Möglichkeit, wie man die Adresse der "Hauptwebseite" findet? Wenn man also auf t-online navigiert, dass dann z.B. "www.t-online.de" kommt und nicht irgendetwas anderes.

[falsch]

Ups, verdammt Habe einen kleinen Programmierfehler im Quelltext... Sorry!