关于Tadoconnection.create(self)的问题

Question

我建立了一个ActiveServer Object，过程之中定义了Tconnection:
var
adoconn1:Tadoconnection;
...
begin
   //下面的语句报错，
   adoconn1:=Tadoconnection.create(self);
   adoconn1.connectionstring:=ConnStr;
   adoconn1.open();
end;
错误提示:
  Incompatible types:'Tcomponent' and 'TZhlObj'
请各位高手给看看！什么原因。

Answer 1

adoconn1:=Tadoconnection.create(nil);
注意释放啊；

Answer 2

在COM的方法中不能使用self
self是tcomponent的指针
COM类不是从Tcomponent中继承的
所以不能这样用
象一楼的方法就可以
最后adoconn1.free;
adoconn1:=nil;

Answer 3

....create(nil);
...free;//释放