El siguiente código te permite saber cuando se termina de cargar totalment un página:
Código Delphi
[-]
procedure TForm1.NavegadorDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if (pDisp = CurDispatch) then
begin
CurDispatch := nil;
end;
end;
procedure TForm1.NavegadorNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if CurDispatch = nil then
CurDispatch := pDisp;
end;