1.uses ActiveX;
2.
procedure HLCJ.Execute;begin CoInitialize(nil); //要使用的控件 CoUninitialize;end;
Delphi 在多线程中使用其他窗体上的控件,报“尚未调用CoInitialize”解决方法
原文：http://www.cnblogs.com/FKdelphi/p/4654866.html
