关于WebBrowser的送分问题(200分)

我对WebBrowser不熟悉,请问各位大虾如何将字符串直接用WebBrowser显示,
不用文件传递

在窗体中放入一个控件：WebBrowser，添加单击事件：
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.daizi.com');
end;

//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
//直接写到浏览器里。
vv := VarArrayCreate([0,0],varVariant);
vv[0] := '<base href="'+LocalPath+'"/>'+ src+ tmpStr;
try
ieBrw.Navigate('about:blank');
HTMLDocument := iebrw.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
HTMLDocument.charset:= 'gb2312';
HTMLDocument.close;
except
statusbar1.Panels[0].Text:='写浏览器出错';
end;
end;

刚刚回来,谢谢你的回答.再繁您看看 ID：1032102