Как получить страницу из WebBrowsera (html) в исходном коде?

[spartactv]

Как получить страницу из WebBrowser (html) в исходном коде? То есть я получаю в окне WebBrowser1 определенную страницу сайта. Как мне можно увидеть исходный код этой страницы в Memo?

[DIgorevich]

http://delphiworld.narod.ru/base/html_code_to_memo.html

[kangreon]

Uses OleCtrls, SHDocVw, ActiveX;

//функция для получения из HTML кода
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: 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 ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;