[NumLock]

все что может получить WebBrowser можно получить через IdHTTP!

Код:

uses
  mshtml,

var
  iall: IHTMLElement;
begin  
  iall:=(WebBrowser.Document as IHTMLDocument2).body;
  while iall.parentElement <> nil do
  begin
    iall := iall.parentElement;
  end;
  Memo.Text:=iall.outerHTML;
end;