你去
http://www.techvanguards.com/products/eventsinkimp/
下一个EventSinkImp
它会自动生成EventSink的
What is EventSinkImp?
EventSinkImp is a free utility (comes with full source code for enthusiasts) that imports COM connection point-based event interfaces for ease of use in Delphi applications. EventSinkImp creates stub classes/components that publishes event methods as native Delphi events so that you can easily build applications that need to capture COM-based events from Delphi, Visual Basic, or Visual C++ server COM components.
If you are familiar with VB, EventSinkImp allows you to achieve the equivalent of VB's Dim WithEvents mechanism.