Fórum CHAMAR PROCEDURE NO FORMCREATE DO DELPHI #502669

procedure TFormMain.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
  var
  sHTML : IHTMLElement;
  Teste, result: String;
begin
     sHTML:= (WebBrowser.Document AS IHTMLDocument2).body;

     while sHTML.parentElement <> nil do
     begin
       sHTML := sHTML.parentElement;
     end;
     Teste:= WebBrowser.OleObject.Document.Body.InnerText;
     //mmo1.Text:= teste;
     ShowMessage(Validaserial(teste));
     ShowMessage(ExtraiDocumento(teste));

     serialbusca := Validaserial(teste);
     documentobusca := ExtraiDocumento(teste);

end;