Usando o evento OnDocumentComplete da classe TWebBrowser para detectar o carregamento completo de um documento HTML

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  url: String;
begin
  // vamos carregar a página inicial do site Arquivo de Códigos
  url := 'http://www.arquivodecodigos.net';

  // vamos acessar a página
  WebBrowser1.Navigate(url);
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  ShowMessage('O documento acaba de ser carregado.');
end;