直接修改TWebBrowser显示内容

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin 
　　  Webbrowser1.Navigate('about:blank');
　　end;
　　
　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　  V: OleVariant;
　　begin 
　　  V := WebBrowser1.Document;
　　  s := 'htmlheadmeta http-equiv="Content-Type" content="text/html; charset=gb2312"/headbody'+
　　       'style type="text/css"' +
　　       'body {font-family: "宋体", "Times New Roman"; font-size: 12px;margin-left: 0px;margin-top: 0px;margin-right: 0px;margin-bottom: 0px;}' +
　　       '/stylebWelcome!/b/body';
　　  V.Script.Document.Body.InnerHTML := s;
　　end;