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

[suihu]

如题，在本机运行正常，但是到客户的电脑上运行时，却出现“灾难性故障”。

NewXMLDocument方法是Borland标准库里的方法。

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

[Rainstorey]

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;

[suihu]

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

[Rainstorey]

增加引用计数,不会被莫名构析.