Twebbrowser сохранение исходника в файл Опции

[Altair]

Из DRKB ...

procedure TForm1.Button1Click(Sender: TObject);

var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  filename:string;
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream;
  Stream: IStream;
  SaveResult: HRESULT;
begin
 filename:='c:\test.html';
 WebBrowser1.Navigate('http://forum.pascalnet.ru/index.php', Flags,
    TargetFrameName, PostData, Headers);
  PersistStream := WebBrowser1.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;

Почему-то ругается... что может быть не так?
эта процелура обрататывает нажатие на кнопку на форме