to “左轻侯、terry_lzs ”大虾,请告诉我一下。(50分)

我看了你给的源代码，我依葫芦画瓢去做，不过我的代码运行时会出错，这方面的东西我第
一次做，还请你多多指教。content是不是就是html的源代码？
procedure ShowHtml(Browser:TWebBrowser;content: string);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
vv := VarArrayCreate([0,0],varVariant);
vv[0] := content;
HTMLDocument := browser.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));//执行到这里出错
HTMLDocument.charset := 'gb2312';
HTMLDocument.close;
end;
不知为什么会出错，我查了一天查不出来。
急急........