请问如何编写一个类似OFFICE里的ACTIVEX插件(ouactrl.ocx)一样的函数库!

本人想自己编写一个ACTIVEX控件,文件的扩展名为.OCX
想像OFFICE里的ACTIVEX插件(ouactrl.ocx)一样,能通过网页插数调用里面的函数!
请问如何编写一个类似OFFICE里的ACTIVEX插件(ouactrl.ocx)一样的函数库!DELPHI里可编写的ACTIVEX挺多的!用那个合适?是不是叫"Type Library"的项目,还是其它那个项目!谢谢~
请举例,谢谢!看看下面的例子,有助于你理解我的意思 *^-^*
下面例子粘到.htm文件即可!例:<A HREF="javascript:HelpPopup('oftip9.hlp','xldefToolbarDock');" class="pop">固定工具栏</A>
<p>AAA 
  <SCRIPT language="VBScript" src="ShowMe_Code.vbs"></SCRIPT>
  <SCRIPT language="VBSCRIPT">
Sub HelpPopup(sFile,sID)
L_SecurityT1_ErrorMessage="帮助无法为您演示此操作，原因是浏览器中的安全级设置过"
L_SecurityT2_ErrorMessage="高，或 ActiveX 控件 Ouactrl.ocx 的安装不正确。"
L_SecurityE1_ErrorMessage="- 请在浏览器中选择一个较低的安全级设置"
L_SecurityE2_ErrorMessage="- 如果在选择了较低的安全级后，仍然看到此消息，请与系"
L_SecurityE3_ErrorMessage="统管理员联系，以解决 ActiveX 控件 Ouactrl.ocx 的安装"
L_SecurityE4_ErrorMessage="问题。该控件位于您安装 Microsoft Office 的文件夹中。"
sSecurityMSG=L_SecurityT1_ErrorMessage & chr(13) & L_SecurityT2_ErrorMessage & chr(13) & chr(13) & L_SecurityE1_ErrorMessage & chr(13) & L_SecurityE2_ErrorMessage & chr(13) & L_SecurityE3_ErrorMessage & chr(13) & L_SecurityE4_ErrorMessage
L_App_DialogTitle="Microsoft Office 帮助"
On Error Resume Next
r=oua2.HelpPopup(sFile,sID)
If Err<>0 Then Msgbox sSecurityMSG,48,L_App_DialogTitle
End Sub
</SCRIPT>
</p>
<p>&nbsp;</p>
<p><object width="32" height="32" classid="CLSID:8936033C-4A50-11D1-98A4-00A0C90F27C6" id="oua2">
    <embed width="32" height="32">
    </embed> 
  </object></p>