под рукой сейчас Delphi нету, но возможно у TWebBrowser'а есть событие что-то типа OnNavigateComplete...советую там посмотреть.