EmbeddedWB(WebBrowser)怎么响应网页里的按钮点击事件,响应到delphi中我的自编函数 ( 积分: 100 )

我代码写到这里了,但是不知道怎么下去
Uses MSHTML;
procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var   
doc : HTMLDocument;
win : IHTMLWindow2;
docEvents : HTMLDocumentEvents2;
winEvents : HTMLWindowEvents2;
begin
  doc := WebBrowser.Document as HTMLDocument;
  win := doc.parentWindow;
  docEvents := doc as HTMLDocumentEvents2;
end;