[orbb]

Все , нашел нужной исходник , спасибо.

uses mshtml;

var iall : IHTMLElement;
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;

while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
Form1.RichEdit1.Text := iall.outerHTML;
end;
end;