А если
так
Код:
procedure TForm1.BrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = (Sender as TWebBrowser).Application then
... //загрузка завершена
else
... //подгружается фрейм
end;
З.Ы. Или следить за ReadyState, если оно READYSTATE_COMPLETE, то документ полностью загружен.