用Delphi编写com在之前就遇到过，但是当时只是理解其中的实现原理，所以没有仔细研究过，这次又遇到这个问题，所以决定试一下，不过倒是有种“有心栽花花不开，无心插柳柳成荫”的感觉，第一次是真心想知道com如何创建，结果一个成功的都没有，这次只是抱着试一试的心态，结果com就写成了。
下面简单介绍一下com如何编写，其实很简单，运用delphi自带的功能就可以实现。
1、在delphi中选择：New—Other—ActiveX—ActiveX Library，点击“OK”即可。
2、在delphi中选择：New—Other—ActiveX—Automation Object，点击“OK”即可。
3、此时会弹出一个窗体，要求输入“CoClass Name”，此时例如输入“UserInfo”，点击“OK”即可。
4、此时进入如下界面：
5、在IUserInfo处，点击右键，此时可以添加如下内容：
6、此处可根据自己的需要进行选择。
7、介绍一个已经写好的例子给大家：
(1)创建一个这样的函数function GetData(const Key: WideString; var Data: OleVariant): OleVariant;
（2）创建一个叫做“Data”的属性
（3）创建一个function TestData(const Key: WideString): OleVariant;的函数
（4）选择单元完善功能
（5）单元文件的功能
8、到此一个com组件就完成了。
你可以通过delphi的导入类型库的方式来使用，当你运行的时候可能还会提示说类没有注册，没有关系，运行cmd命令“regsvr32 “你的dll的路径””即可。
是不是觉得很简单呢，动手测试一下吧！