Código Delphi [-] var document : IHTMLDocument2; begin document := WebBrowser1.Document as IHTMLDocument2; Memo1.Text := document.body.outerHTML;// También tienes outerText para que te muestre solo el texto
var document : IHTMLDocument2; begin document := WebBrowser1.Document as IHTMLDocument2; Memo1.Text := document.body.outerHTML;// También tienes outerText para que te muestre solo el texto