DELPHI菜單:
File/New/Other…

按確定[ok]按鈕
點擊File/Save菜單保存:

輸入工程名MyCOM

按保存按鈕

再打開菜單File/New/Other…

 按[OK}按鈕;

在CoClassName打入MyObject

按OK

在IMyObject上按MOUSE右鍵

ImyObject/New/Method

在Name處輸入Test

切換到Parameters頁次

按Add兩下

將第一個Parameters的Name改成PsParam1, Type打入BSTR

將第二個Parameters的Name改成PsResult, Type打入BSTR*

將MOUSE點到第二個Parameters的Modifier字段處

按 “…” 按鍵

將RetVal打勾

按OK

(原來的[in]變成了[out,retval], 表示這個是要回傳的, 其型態(tài)為字符串)

關掉這個窗口

(你會看到它幫你建好了CODE的模型)

File/Save

輸入文件名MyObject

按保存

改一下CODE

按一下Ctrl+S保存

PRoject/Build MyCOM

就可以看到生成了一個MYCOM.DLL文件，
這就是你要的COM組件了，用Regsvr32命令注冊這個組件后就可使用了。

下面再講調用這個COM組件的方法：

New 一個新的application
在uses 中加一個Comobj
放一個button在FORM中
在button的onClick事件中打入以下的Code:

執(zhí)行.....并按Button1按鍵
你會看到一個Message...那就是執(zhí)行COM對象的Test方法的回傳值