delphi xe2报CoInitialize has not been called异常

delphi xe2报CoInitialize has not been called错误
delphi xe2报CoInitialize has not been called错误
启动个线程 线程里面用到adoquery 在创建的时候（adoquery ：= tadoquery.create(nil))
报以上错误， 网络上也找了些资料 说是adoquery属于com控件 在初始化的时候 需要加入以下代码：

initialization//OnCreate前运行，只运行一次
  CoInitialize(nil);
finalization//OnDestory后运行，只运行一次
  CoUnInitialize;

并添加activex单元
但是错误依然存在
我在线程里面也调用了这个com初始化 错误还是一样 
实在解决不了 还请大家指教 谢谢。
[解决办法]
initialization//OnCreate前运行，只运行一次
  CoInitialize(nil);
finalization//OnDestory后运行，只运行一次
  CoUnInitialize;
－－－－－－－
你这么写在某个单元中？那还是在主线程中执行啊。
把CoInitialize(nil);写到线程类的Execute方法中
[解决办法]
线程结束的地方