Ещё раз о WebBrowser

[Vahmur]

Извините за занудство, уже видел закрытые темы по этому поводу, но вопросы всё-таки остаются, и ответов на форуме найти не получилось.

Итак вопрос по поводу пердачи html документа из WebBrowser в Memo, либо сохранения в виде текстового файла.

В проге указал всё, как было рассказано на форуме, но при исполнении постоянно возникает ошибка в одном итом же месте :

SaveResult := PersistStream.Save(Stream, True);

Эту строку в процедуре

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
{ we are passing soReference to TStreamAdapter contructor parameter,
it is our reponsibility to destroy the stream object. }
FileStream.Free;
end;
end;

компилятор подчёркивает. При попытке запустить прогу выдаётся ошибка:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045EB5E in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.