library WAPI;uses
  SysUtils,
  msxml,
  msxmldom,
  ComObj,
  ActiveX,
  Classes;...
function ZxtSendMessage(p_szUserLoginID):Integer;stdcall;
var
ObjXMLDoc: DOMDocument;
xmlText: widestring;
begin
xmlText := '';
xmlText := xmlText + '<?xml version="1.0" encoding="utf-8"?>';
....try
    CoInitialize(nil);
    //建立DOMDocument单元对象
    ObjXMLDoc := CoDOMDocument.Create;   //肯定是这行错误
    CoUninitialize;
exceptend;
end;请高手赐教如何修改....