MSXML进行Schema验证出错(50分)

我用Delphi7做开发，要对一个XML文件根据Schema做验证，采用的是MSXML解析器，
在项目中导入类型库后，有如下程序：
xmlobj := TDOMDocument40.Create(nil);
xmlsch := TXMLSchemaCache40.Create(nil);
xmlsch.DefaultInterface.add('', 'data.xsd');
xmlobj.DefaultInterface.async := False;
xmlobj.DefaultInterface.validateOnParse := True;
xmlobj.DefaultInterface.resolveExternals := True;
xmlobj.DefaultInterface.schemas := xmlsch.DefaultInterface;
xmlobj.DefaultInterface.loadXML(messageBody);
if xmlobj.DefaultInterface.parseError.errorCode = 0 then
parseMemo := '消息报文格式检查成功!'
else
parseMemo := '消息报文格式检查失败!'；
在本机(Windows 2003)运行没问题，部署到其它机器(Windows XP)运行出错，
安装了MSXML4.0 SP2后，还是不行。
高手请帮忙看下，是什么问题，急啊。