(webbrowser1.Document as IHtmlDocument2).Body.OuterHtml究竟该怎么用？(50分)

想在一个空得页面里显示我指定的内容，但使用webbrowser后就是老提示错误。
错误是OLE error 800A0258.
代码如下，高手快来帮帮我。我查了原来的帖子，都说左轻侯的《大富翁浏览器》中的相关代码，但是就是找不到左轻侯的《大富翁浏览器》源码下载。页有人发现跟我有类似的错误，但是解决后没有说该如何处理。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, HTTPApp, HTTPProd, MSHTML;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
(webbrowser1.Document as IHtmlDocument2).Body.OuterHtml:='test';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('about:blank');
end;


end.

解决了
procedure TForm1.Button1Click(Sender: TObject);
var
TmpStr: String;
begin
TmpStr:='afdfsdff';
IHTMLDocument2(WebBrowser1.Document).Body.innerHTML:=TmpStr;
end;