WebBrowser Url ermitteln

[Klaus01]

Vielleicht dieser?

Delphi-Quellcode:

procedure TForm1.EmbeddedWB1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage(Url);
end;

end.

Grüße
Klaus