Du klickst auf deinen TWebBrowser auf deiner Form, im ObjectInspector gehst du auf "Ereignisse", dort suchst du das Ereignis OnDocumentComplete, machst einen Doppelklick auf die weiße Flächs daneben, und schreibst in die Prozedure, die Delphi dir erstellt hat
Delphi-Quellcode:
procedure TfrmMain.MyWebBrowserDocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
MyURLEdit.Text :=
URL;
end;
Oder du verwendest das Ereignis BeforeNavigate2, da musst du aber noch die richtige
URL rausfinden, weil das Ereignis mehrmals aufgerufen wird.