急:关于CoInitialize错误 ( 积分: 200 )

小弟自已定义了一个类。在普通的应用程序中引用并创建实例、使用都一切正常。但是在一个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;

小弟自已定义了一个类。在普通的应用程序中引用并创建实例、使用都一切正常。但是在一个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;

Uses ActiveX;

initialization
CoInitialize(Nil);
finalization
CoUnInitialize;