Текущий url webbrowser...

[Дмитрий1993]

может это:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
[название_элемента].[Caption]\[text]:=WebBrowser1.LocationURL;
end;

[Жека_]

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 Form1.Caption := URL;
end;

[SnJon]

На самом деле все очень просто:

edit1.Text:=webbrowser1.LocationURL;

[Max1548]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Edit1.Text := WebBrowser1.LocationURL;
end;

На событие onDocumentComplete, у меня все работает!