Получение html через TWebBrowser

[bilibian]

Привет!

Юзаю функцию

function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser; URL: string): string;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
   res:Boolean;
  begin
    WebBrowser.Navigate(URL);
    ps := WebBrowser.Document as IPersistStreamInit;
    s := '';
    ss := TStringStream.Create(s);
    try
      sa := TStreamAdapter.Create(ss, soReference) as IStream;
      res := Succeeded(ps.Save(sa, True));
      if res then Result:=ss.Datastring;
    finally
      ss.Free;
    end;
  end;

В итоге получаю ошибку, но если два раза подряд заюзать, то на второй раз без ошибок, в чем может быть дело?

[bilibian]

UPD

Сделал так и заработало как надо:

function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser; URL: string): string;
  var
    Doc:IHTMLDocument2;
begin
  WebBrowser.Navigate(URL);
  while WebBrowser.ReadyState<READYSTATE_COMPLETE do
    begin
      Application.ProcessMessages;
    end;
  Doc:= WebBrowser.Document as IHTMLDocument2;
  result:=doc.body.innerHTML;
end;