[positivesmile]

Пытаюсь загрузить текст из memo в webbrowser, но

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Astream:Tstream;
begin
memo1.Lines.SaveToStream(Astream);
AStream.seek(0, 0);
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

при нажатии на кнопку вылазит ошибка "access violation at adress ..."

Что не так?