помню допиливал для себя.
см. вложение.
на DidFinishLoad делай
// вытягиваем урл из компонента WebBrowser
{$ifdef mswindows}
newURL:= (FWebBrowser.GetWeb as IWebBrowserEx).GetLocation;
{$else}
newURL:= FWebBrowser.GetWeb.URL;
{$endif}
( конечно, можно все ето в геттеры\сеттеры завернуть, но времени не было)
везде не тестил. но под винду и ведро работает( я ловил редирект после авторизации в [прости господи] Вконтакте )
TWebBrowserEx.zip