Как загрузить в Memo код веб страницы??

//Константа.
  const
  HTMLID_FIND       = 1;   // поиск
  HTMLID_VIEWSOURCE = 2;   //просмотр кода в блокноте.
  HTMLID_OPTIONS    = 3;   //свойства.
 
///Поиск.
 procedure FindIE;
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  if WebBrowser.Document <> nil then
    try
      WebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
        try
          CmdTarget.Exec( PtrGUID, status, 0, vaIn, vaOut);
        finally
          CmdTarget._Release;
        end;
    except
  end;
  Dispose(PtrGUID);
end;
 
 
...////
 
function WB_HTMLCode(WebBrowser: TWebBrowser; Code: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then Code.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

WB_HTMLCode(Webbrowser1, Memo1.Lines);