紧急求助一个控制网页的问题(50分)

var
HtmlDoc:IHTMLDocument2;
。。。。。
begin
HtmlDoc:=WebBrowser1.Document as IHTMLDocument2;
end;
上面这个语句取出来的HTMLDOC总是为NIL，但是我昨天试的好好的，可以控制住网页，都是同一个网址，今天试了10几个网址都不行，哪位告知究竟是怎么回事

当WebBrowser1没有打开任何网页时Document就是空的。
解决办法：
1、如果你要往Document里写HTML，你可以在使用前先浏览空白页：
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
end;

2、如果你要从Document里读取HTML，需在之后再访问：
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var
HtmlDoc: IHTMLDocument2;
begin
HtmlDoc := WebBrowser1.Document as IHTMLDocument2;
//...
end;

接受答案了.