以下代码不记得从哪里复制过来的，里面加了点自己的改动
unit EventSink;
unit EventS
阅读背景：
Delphi动态调用ocx
来源：互联网
分享到：
