急:关于CoInitialize错误

Question

小弟自已定义了一个类。在普通的应用程序中引用并创建实例、使用都一切正常。但是在一个WebService程序中使用则出现了错误：尚未调用CoInitialize!请问是什么原因？如何解决？
源代码如下：
procedure TWebModule2.WebModule2DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  xmlDoc : TXML;   <--自定义的类-->
  Content : String;
begin
  Content := Request.Content;  try
    xmlDoc := TXML.Create(Content);   <--这一句出错！-->
  except
    on E:Exception do
      begin
        MessageDlg(E.Message,mtWarning,[mbOK],0);
        Response.Content := 'Fault';
        Exit;
      end;
  end;  MessageDlg('成功创建XML类实例',mtInformation,[mbOK],0);  WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
  Response.Content := 'OK';
end;

Answer 1

要调用一下CoInitialize初始化COM库调用时这样括起来看行不行
  Coinitialize( nil ); 
  try
    //...
  finally
    CoUninitialize;
  end;

Answer 2

在异步调用时要使用CoInitialize初始化COM