[wendstor]

Код:

uses mshtml, activex;

var
  WB : TWebBrowser;
  Document: IHTMLDocument2;
begin
 Document := WB.Document as IHtmlDocument2;
 if Document < >  nil then
   Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;

Bargest: оформляем код в соответствиями с правилами форума!

или с помощью Indy IdHTTP