关于webbower控件的问题，我想了几天了，现在有点头绪了！高手请帮帮忙啊 (100分)

这里的代码在编译时不出错，当我运行到这里的时候就出错了，错在哪里呢？
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
vv := VarArrayCreate([0,0],varVariant);
vv[0] :=memo1.Text;//memo1里放一个htm文件的源码
HTMLDocument :=webbrow.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.charset := 'gb2312';
HTMLDocument.close;
end;
initialization
OleInitialize(nil);
finalization
OleUninitialize;

QQ: 85472986

var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
vv:= VarArrayCreate([0, 0], varVariant);
vv[0] := HTMLString;
HTMLDocument.Write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.Charset := 'gb2312';
HTMLDocument.Close;
end;

谢谢zhihuali在qq上指点,接受答案了.