delphi 采用OLE操作excel时，如果放到线程中，为什么出现CoInitialize未初始化的错误

Question

initialization0D
CoInitialize(nil);
finalization
CoUninitialize();  写在最后的“end.”前面就可以了。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

采用ADO方式，放到线程中时也会出现这种错误

Answer 2

都是一会回事, MS Windows 都要在线程启动时提出要 COM 支持才会有能力用 COM 功能
楼上的兄台的代码只是主线程可以用 COM 
要在子线程中用 COM 要在 线程的Execute中写到
Begin
  CoInitialize(Nil);
  Try
    ...// your code add here
  Finally
    CoUninitialize;
  End;
End;