关于：解析ｘｍｌ文档，用按钮点击时正常，但放入线程后，报Microsoft MSXML is not installed错误！这是什么原因？

Question

我描述一下我的问题：
　程序功能是解析一个ｘｍｌ文档，然后写入数据库。（要求定时执行，所以我把处理过程放在线程中）
　我在按钮中添加处理事件，能够正常解析，和写入数据库。但是我把按钮的点击事件放入到线程处理过程中，就报Microsoft MSXML is not installed这个错误！
　
　注明一下：如果先执行一下按钮的处理过程，再启动线程，也没有问题。
　感觉好像是什么没有初始化一样。
InBossXMLDoc　是 TXMLDocumentprocedure TForm1.Button1Click(Sender: TObject);
begin
  //这里导入ｘｍｌ文件，解析，写入数据库
　　try
     InBossXMLDoc.LoadFromFile(FileName);
   except
     DisplayMessage(Format('XML文件格式有误！文件名： %s ',[FileName]));
     exit;
   end;//end try
end;线程单元的处理
procedure ThreadButtonClick.Execute;
begin
  { Place thread code here }
  FreeOnTerminate:=true;
  form1.Button3.Click ;
  //form1.Button1.Click ;
end;

Answer 1

在线程里调用 CoInitialize(nil);