Как получить код страницы из TWebBrowser?

При помощи данной функции на языке программирования Delphi можно получить html-код страницы из компонента TWebBrowser.

uses SHDocVw, ActiveX;
...
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  ss := TStringStream.Create('');
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
    if Result then ACode.Text := ss.Datastring);
  finally
    ss.Free;
  end;
end;