Adresse der Aktuellen site in edit1 anzeigen

[TStringlist]

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  edit1.text := Webbrowser1.LocationURL;
end;