delphi监听ie onDocumentComplete解决办法

delphi监听ie onDocumentComplete
我现在已经hook上ie了
var
  shellWindows : TShellWindows;
  shell : IShellWindows;
  x: Olevariant;
  c : IHTMLDocument2;
  mDisp : IDISPATCH;
begin
  shellWindows := TShellWindows.Create(nil);
  shellWindows.OnWindowRegistered := DShellWindowsEvents1WindowRegistered;
  shellWindows.OnWindowRevoked := DShellWindowsEvents1WindowRevoked;
  shellWindows.Connect;
end;

我想监听当页面加载完成 应该怎么触发事件，应该怎么写 谢谢
------解决方案--------------------
http://bbs.****.net/topics/390149032
http://www..net/c-builder/1123342.html