Как с помощью компонента WebBrowser скачать html код и занести ее в переменную типа string, при этом ни чего не выводя в поле WebBrowser?

Илди вот, нашел функцию, которая возвращает html код который находится в WebBrowser:

<br />
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;<br />
var ps: IPersistStreamInit;<br />
ss: TStringStream;<br />
sa: IStream;<br />
s: string;<br />
SaveResult: HRESULT;<br />
begin<br />
ps := WebBrowser.Document as IPersistStreamInit;<br />
s := '';<br />
ss := TStringStream.Create(s);<br />
try<br />
sa := TStreamAdapter.Create(ss, soReference) as IStream;<br />
SaveResult := Succeeded(ps.Save(sa, True));<br />
if SaveResult then ACode.Add(ss.Datastring);<br />
finally<br />
ss.Free;<br />
end;<br />
end; </p>
<p>procedure TForm1.Button2Click(Sender: TObject);<br />
begin<br />
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);<br />
end;<br />