往TWebBrowoser 控件写入内存数据－仅适用ie6及以上版本

添加Twebbrowoser控件，然后用以下代码可以直接将页面数据写入 Twebbrowoser 控件以进行显示：

procedure TForm3.button1click(Sender: TObject);
var
Doc: OleVariant;
begin
  WebBrowser1.Navigate('About:Blank');
  WebBrowser1.OleObject.Document.Close;

  Doc:= WebBrowser1.Document;
  Doc.Write(Html 文本);                       //“Html 文本”＝需要显示的html语言文本，string格式
  webbrowser1.Refresh;

end;

这个方法有个缺点，就是不支持ie5及以下版本。若哪位大虾有更好的解决方法，请指点。