如何动态生成Twebbrowser的网页内容

Question

//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB);
var
   vv: Variant;
   HTMLDocument: IHTMLDocument2;
   tmpStr,tmpfilepath:string;
  // listStr:Tstringlist;
begin
   //直接写到浏览器里。
     vv := VarArrayCreate([0,0],varVariant);
        vv[0] := src;
       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;