[jorge82]

Puedes utilizar el evento OnNavigateComplete2, en el tienes la URL actual:

Código Delphi [-]
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp:
    IDispatch; var URL: OLEVariant);
begin
  Self.Caption:= URL;
end;