一个关于IWebBrowser2和DocumentComplete的问题。急！！！(100分)

如果我用一下程序创建一个实例：

Uses ComObj, SHDocVw, MSHTML_TLB;

var
IE: IWebBrowser2;
procedure StartIE;
var Address, p1, p2, p3, p4: OleVariant;
begin
IE := CoInternetExplorer.Create; //启动IE浏览器
IE.Visible := true; //显示浏览器
Address := 'www.microsoft.com'; //浏览地址
IE.Navigate(Address,p1,p2,p3,p4);//浏览
end;

我的问题是，如何让我创建的这个实例‘IE’具有像TInternetExplorer中OnDocumentComplete
一样的事件，换句话说，也就是当‘IE’浏览一个地址完成以后，我如何能接受到Document
已完成的信号，来调用我自己的一段程序。 以前曾经见 Huizhang 说过，要Implement浏览
器DWebBrowserEvents2中的事件DocumentComplete，但不知具体应怎样实施。请各位大虾赐
教，请各位大虾在回答时尽量详细些，本人较愚钝。

到http://www.intelligo.net/iedelphi/上找bho，把例子下下来，编译，
然后run/register as activex server，之后一打开ie就会弹出一个窗口，
IE的所有动作都会在窗口中显示出来，在DocumentComplete里面修改就是了。
那个程序只是个例子，你再自己修改就行了。

接受答案了.