[roman]

Otra opción, en caso de que tu aplicación esté usando el TWebBrowser podría ser:

uses MsHtml;

var
  Document: IHTMLDocument2;

begin
  Document := WebBrowser1.Document as IHTMLDocument2;
  Memo1.Lines.Text := Document.Body.parentElement.outerHTML;
end;

// Saludos