关于WebBrowser

Question

var
  HTMLDocument:IHTMLDocumet2;
begin
  WebBrowser1.Navigate('Http://www.sina.com.cn/');
  HTMLDocument:=WebBrowser1.Document as IHTMLDocument2;
  While HTMLDocument.ReadState<>'READSTATE_COMPLETE'do Application.ProcessMessage;
end;
运行时出错，请问是什么原因？
或者，用WebBrowser访问网页后，如何在网页下载完成时对网页内容进行操作？

Answer 1

① uses MSHTML;② 在OnDocumentComplete中、写对网页内容进行操作。

Answer 2

HTMLDocument:=WebBrowser1.Document as IHTMLDocument2;這句可能要在後面, 或者在 OnDocumentComplete 事件中處理