TWebBrowser saber cuando se cargo la pagina

[mazinger]

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; {clear the global variable }
  end;

end;


procedure TForm1.NavegadorNavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp;
end;