通过NewXMLDocument创建IXMLDocument，有的计算机上出错。

Question

如题，在本机运行正常，但是到客户的电脑上运行时，却出现“灾难性故障”。NewXMLDocument方法是Borland标准库里的方法。function NewXMLDocument(Version: DOMString = '1.0'): IXMLDocument;
begin
  Result := TXMLDocument.Create(nil);
  Result.Active := True;
  if Version <> '' then
    Result.Version := Version;
end;

Answer 1

var XmlRef:IXMLDocument;
function NewXMLDocument(Version: DOMString = '1.0'): IXMLDocument;
begin
  Result := TXMLDocument.Create(nil);
  Result.Active := True;
  if Version <> '' then
    Result.Version := Version;  XmlRef:=Result as IXMLDocument;
end;

Answer 2

TXMLDocument实现了IXMLDocument接口，XmlRef:=Result as IXMLDocument;，这句估计没什么意义吧，而且NewXMLDocument方法是Borland标准库里的方法。