关于线程类里动态生成TADOQuery 的问题,请帮忙!鞠躬! ( 积分: 100 )

声明一个函数:
void __fastcall Tchuan::aaa(TComponent *Owner)
{
TADOQuery *adoq = new TADOQuery(Owner);
}
在线程类的 void __fastcall Tchuan::Execute()
{
aaa(Form1);
//---- Place thread code here ----
}
调用,编译正常通过,但运行出错!Tchuan为这个线程类名;
错误信息为roject chuan.exeraised exception class EOleSysError
with message '尚未调用CoInitialize.' process stopped Use Step or
Run to Continue.
请高手帮忙解答!!

声明一个函数:
void __fastcall Tchuan::aaa(TComponent *Owner)
{
TADOQuery *adoq = new TADOQuery(Owner);
}
在线程类的 void __fastcall Tchuan::Execute()
{
aaa(Form1);
//---- Place thread code here ----
}
调用,编译正常通过,但运行出错!Tchuan为这个线程类名;
错误信息为roject chuan.exeraised exception class EOleSysError
with message '尚未调用CoInitialize.' process stopped Use Step or
Run to Continue.
请高手帮忙解答!!

在线程 的
begin
后面先写上
CoInitialize(Nil);
//初始化,不写这句就不能使用数据库
需要 引用 ActiveX 单元

多谢!

结贴呀！