TWebbrowser aktuelle URL in memo speichern

[fatalerror]

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  memo1.Lines.Add(URL)   ;
end;