// source.xml
<?xml version="1.0" encoding="utf-8"?>

<some></some>

// repicient.xml
<?xml version="1.0" encoding="utf-8" standalone="no"?>

<!DOCTYPE some [ 
    <!ENTITY ref PUBLIC "source.xml">
]>

<some>
&ref;
</some>

<!-- source.xml -->
<?xml version="1.0" encoding="utf-8"?>

<!-- Этот файл не обязательно должен содержать только один корневой элемент, 
     но обязательно должен содержать пролог с указанием кодировки -->

Any other content

<some>
    <b>Мама мыла раму</b>
</some>


<!-- repicient -->
<?xml version="1.0" encoding="utf-8" standalone="no"?>

<!DOCTYPE some [ 
    <!ENTITY ref SYSTEM "source.xml" >
]>

<some>
&ref;
</some>

var
  xml: IXMLDocument;
  subxml: IXMLDocument;
  iNode: IXMLNode;
  SubNode: IXMLNode;
begin
  xml := TXMLDocument.Create(nil) as IXMLDocument;
  xml.Active := True;
  xml.Version := '1.0';
  xml.Encoding := 'UTF-8';

  iNode := xml.AddChild('DATABASE');
  SubNode := iNode.AddChild('TableName');

  qry.SQL.Add('SELECT * FROM TableName');
  qry.SaveToFile('TableName.xml', pfXML); // аналогично команде ADODBRecordset.Save('TableName.xml', adPersistXML);
  //qry.LoadFromFile('TableName.xml'); // Ошибка

  subxml := TXMLDocument.Create(nil) as IXMLDocument;
  subxml.Active := True;
  subxml.Version := '1.0';
  subxml.Encoding := 'UTF-8';

  subxml.LoadFromFile('TableName.xml');
 
  SubNode.ChildNodes.Add(subxml.DocumentElement); // Вот то, что искал!

  xml.SaveToFile('Database.xml');

var
  xmldom: IXMLDOMDocument;
  subxmldom: IXMLDOMDocument;
  xmldomNode: IXMLDOMNode;
  xmldomText: IXMLDOMText;

  vADODBRecordset: Variant;
begin
  xmldom := CoDOMDocument.Create;
  xmldom.async := False;

  xmldom.documentElement := xmldom.createElement('DATABASE');

  xmldomText := xmldom.createTextNode('TableName');
  xmldomNode := xmldom.documentElement.insertBefore(xmldomText, null);

  //qry.SQL.Add('SELECT * FROM TableName');
  //qry.SaveToFile('TableName.xml', pfXML); // аналогично команде ADODBRecordset.Save('TableName.xml', adPersistXML);

  subxmldom := CoDOMDocument.Create;
  subxmldom.async := False;

  //subxmldom.load('TableName.xml');
  vADODBRecordset.Save(subxmldom, adPersistXML);

  xmldomNode.appendChild(subxmldom.documentElement); // Ошибка

  xmldom.save('Database.xml');