Otra opción, en caso de que tu aplicación esté usando el TWebBrowser podría ser:
Código:
uses MsHtml;
var
Document: IHTMLDocument2;
begin
Document := WebBrowser1.Document as IHTMLDocument2;
Memo1.Lines.Text := Document.Body.parentElement.outerHTML;
end;
// Saludos