请教Delphi的COM 高手

[flypuma]

请问是否可以为一个TForm来增加一个接口,就象这样:
TMAINFORM = CLASS ( TFORM , IMYINTERFACE )

接口我是通过new 一个 typelib 增加的, 在main 单元的 initialization 部分
我用 TComponentFactory.Create(Comserver , TMAINFORM , CLASS_MAINFORM,... )
在创建工厂类,编译通过了.运行的时候一开始有个问题,好像是TMainForm的类型与
要求的不匹配,后来将类型库里面自动化部分去掉就可以了,但是目前的问题是虽然
运行没有问题了,但是这个CLASS_ID好像还是没有注册成功,因为我在注册表里面没有
找到这个ID,书上一般都是讲new一个automation object的方法来引入一个com对象,
不知道有没有人做过为 Tform这样的类添加com接口支持?