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

本人想自己编写一个ACTIVEX控件,文件的扩展名为.OCX
想像OFFICE里的ACTIVEX插件(ouactrl.ocx)一样,能通过网页插数调用里面的函数!
请问如何编写一个类似OFFICE里的ACTIVEX插件(ouactrl.ocx)一样的函数库!

DELPHI里可编写的ACTIVEX挺多的!用那个合适?是不是叫"Type Library"的项目,还是其它那个项目!谢谢~
请举例,谢谢!

看看下面的例子,有助于你理解我的意思 *^-^*
下面例子粘到.htm文件即可!

如能举例,多加100分[]
例:
<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 &amp
chr(13) &amp
L_SecurityT2_ErrorMessage &amp
chr(13) &amp
chr(13) &amp
L_SecurityE1_ErrorMessage &amp
chr(13) &amp
L_SecurityE2_ErrorMessage &amp
chr(13) &amp
L_SecurityE3_ErrorMessage &amp
chr(13) &amp
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>&amp;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>

在delphi里New一个ActiveX Form 就可以生成*.ocx的ActiveX控件，通过asp就可以调用了。

这个我知道!能不能说详细点,或给个例子?[]

接受答案了.