1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

{ uses SHDocVw_TLB, MSHTML_TLB }

var
  aHTMLDoc   : IHTMLDocument2;
  aHTMLBody  : IHTMLElement;
  swHTMLText : WideString;
begin
  if not VarIsEmpty(WebBrowser1.Document) then
    begin
      aHTMLDoc := WebBrowser1.Document as IHTMlDocument2;
      aHTMLBody := aHTMLDoc.Get_body;
      swHTMLText := aHTMLBody.outerHTML;
      Memo1.Text := swHTMLText;
    end;