[Code]
const
  NODE_ELEMENT = 1;

procedure testXml();
var
  xmlDocLocal, nodeLocal: Variant;
begin
  try
    xmlDocLocal := CreateOleObject('MSXML2.DOMDocument');
    xmlDocLocal.async := False;
    xmlDocLocal.resolveExternals := False;
    xmlDocLocal.loadXML('<root></root>');
    nodelocal := xmlDocLocal.createNode(NODE_ELEMENT, 'element1', '');
    xmlDocLocal.documentElement.appendChild(nodeLocal);
  except
    ShowExceptionMessage;
  end;
end;