[Alegun]

А если так

Код:

procedure TForm1.BrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = (Sender as TWebBrowser).Application then
... //загрузка завершена
else
...  //подгружается фрейм
end;

З.Ы. Или следить за ReadyState, если оно READYSTATE_COMPLETE, то документ полностью загружен.