TStringList

[vasyaRyzhyi]

procedure TForm1.SaveHTMLSourceToFile (const FileName: string; WB: TWebBrowser);
var
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream;
  Stream: IStream;
  SaveResult: HRESULT;
begin
  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True);
    if FAILED(SaveResult) then
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
  finally
    FileStream.Free;
  end;
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Button1.Visible:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Visible:=False;
WebBrowser1.Navigate('http://www.microsoft.com/');
end;

Вопросы:
1. Как здесь можно заменить сохранение через SaveHTMLSourceToFile
просто в TStringList
2. Существует ли способ сохранить страницу с конкретного URL через TWebBrowser на диск (в идеале в TStringList) не открывая окна
В сети описаны способы и не мало, но работающих я не нашел.

P.S. idHTTP мне не подойдет, он не понимает кукисы созданные IE 8 или его не понимают на WEB сервере.