Delphi的TXMLDocument选择MS XML版本的机制是什么？如何修正版本调用异常

Delphi 6 发布时间早于MS XML 6.0的正式推送，其自带的TXMLDocument组件的MS XML供应商默认探测优先级为MS XML 4.0 > MS XML 3.0，不会主动识别MS XML 6.0。
当目标设备存在MS XML 4.0的残留注册表项但核心动态库已损坏/被卸载时，TXMLDocument的探测逻辑仅校验注册表CLSID是否存在，不会提前校验库文件可用性，就会出现判定MS XML 4.0可用但实际加载失败的报错。

• 默认按发布时的最新版本优先逻辑枚举探测：先查询DOMDocument40的CLSID是否注册，存在则优先选择MS XML 4.0
• 未找到DOMDocument40的CLSID时，才会回退查询DOMDocument30的CLSID，使用MS XML 3.0
• Delphi 6的RTL未定义MS XML 6.0对应的DOMDocument60CLSID，因此不会将MS XML 6.0纳入默认探测范围
• 探测逻辑仅校验注册表项存在性，不验证对应dll文件可加载性，半损坏的MS XML 4.0环境会直接触发加载失败

方案1：强制指定使用系统预装的MS XML 3.0（改动最小，兼容性最高） #

在工程初始化代码（工程文件开头、主窗体OnCreate事件均可）添加如下代码，直接跳过MS XML 4.0的探测逻辑：

uses
  XMLIntf, MSXMLDom;

// 全局指定TXMLDocument默认使用MS XML 3.0解析器
DefaultDOMVendor := 'MSXML3';

方案2：扩展支持MS XML 6.0（安全性更高，推荐） #

手动定义MS XML 6.0的CLSID并注册为默认DOM供应商，替换旧版本解析器：

uses
  XMLIntf, MSXMLDom, XMLConst;

const
  // MS XML 6.0 DOM对象CLSID
  CLSID_DOMDocument60: TGUID = '{88D96A05-F192-11d4-A65F-0040963251E5}';

type
  TMSXML6DOMVendor = class(TMSXMLDOMVendor)
  public
    function DOMDocument: TGUID; override;
    function Description: string; override;
  end;

function TMSXML6DOMVendor.DOMDocument: TGUID;
begin
  Result := CLSID_DOMDocument60;
end;

function TMSXML6DOMVendor.Description: string;
begin
  Result := 'MSXML 6.0';
end;

// 初始化阶段注册并指定为默认供应商
initialization
  RegisterDOMVendor(TMSXML6DOMVendor.Create);
  DefaultDOMVendor := 'MSXML 6.0';

方案3：客户端环境清理（无需改代码，适合批量设备处理） #

删除目标设备上残留的HKEY_CLASSES_ROOT\CLSID\{88D969C0-F192-11D4-A65F-0040963251E5}注册表项（对应DOMDocument40的CLSID），TXMLDocument探测不到MS XML 4.0就会自动回退到MS XML 3.0。

注意：MS XML 4.0早已停止官方支持，存在大量已知安全漏洞，不推荐采用安装MS XML 4.0的方式解决问题

内容的提问来源于stack exchange，提问作者TomR