Delphi-PRAXiS - Adresse des WebBrowsers

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.