widnows下用delphi开发COM组件的实例，作者的代码写得很好，不妨大家参考参考。