ADO控件封装成COM出现灾难性错误

Question

是不是DELPHI封装的组件不能做COM组件啊 
代码我都在exe程序中测试通过了，只是建立
的时候把
objconn := TADOConnecion.create(self)
改为
objconn := TADOConnecion.create(objconn)了

Answer 1

在你的代码最开始，加入：CoInitialize(nil);
最后：
CoUninitialize;

Answer 2

谢谢 三位 这些问题都碰到了怎么才可以定义一个全局的TADOCONNECTION连接呢type 
   .
   .
   .
   procedure load();
   procedure test();
   private
     objConn : TADOCONNECTION
end;procedure load();
begin
   coinitialize(nil)   objConn := TADOCONNECTION.create(nil);
   obconn.connectionstring := '....';
   objconn.open();
   
   couninitalize;
end;procedure test();
var objrs : TADOQuery;
begin
   coinitialize(nil)
   objrs := tAdoQuery.create(nil);
   objrs.connection := objconn;  //发生错误    couninitalize;
end;我在用test之前已经LOAD ，打开objconn了
不可以这么用吗 
另外com组件怎么用类编辑器加一个function 啊 不是要属性
procedure 我知道怎么加