Com中如何实现回调函数(100分)

请问Com中用回调函数应该怎样写呀,还用外部调用程序应该怎样去实现?

用自动化事件(Events)通知，在定义接口时，选“产生事件支持代码”。
外部调用只需要写一个TEventSink，并将COM的实例绑定上去，等待COM中的Events调用即可。
你还可以将你的Com做成VCL控件，由Commponent菜单选Import ActiveX Control选中你的COM即可，使用最简单。

过程比较麻烦，找本Delphi开发人员指南，说得很详细。