TXMLDOMElement

var aPath := 'C:\temp\';
var aFile := 'afile'+FormatDateTime('yymmddhhmmsszzzz', Now)+'.xml';

var aXML := TXMLDOMDocument.Create;

//racine
var aXMLRootElement:=aXML.CreateElement('XML');
aXML.AppendChild(aXMLRootElement);

//balise parent 1
var aXMLelement:=aXML.CreateElement('parent1');
aXMLRootElement.AppendChild(aXMLelement);

//balise enfant 1
var aXMLChildElement:=aXML.CreateElement('element1');
aXMLelement.AppendChild(aXMLChildElement);
var aXMLNode:=aXML.CreateTextNode('Noeud1');
aXMLChildElement.AppendChild (aXMLNode);
aXMLChildElement.SetAttribute('attribut1','val11');
aXMLChildElement.SetAttribute('attribut2','val21');

//balise enfant 2
aXMLChildElement:=aXML.CreateElement('element2');
aXMLelement.AppendChild(aXMLChildElement);
aXMLNode:=aXML.CreateTextNode('Noeud2');
aXMLChildElement.AppendChild (aXMLNode);
aXMLChildElement.SetAttribute('attribut1','val12');
aXMLChildElement.SetAttribute('attribut2','val22');

//balise parent 2
aXMLelement:=aXML.CreateElement('parent2');
aXMLRootElement.AppendChild(aXMLelement);

//balise enfant 1
aXMLChildElement:=aXML.CreateElement('element1');
aXMLelement.AppendChild(aXMLChildElement);
aXMLNode:=aXML.CreateTextNode('Noeud1');
aXMLChildElement.AppendChild (aXMLNode);
aXMLChildElement.SetAttribute('attribut1','val13');
aXMLChildElement.SetAttribute('attribut2','val23');

//balise enfant 2
aXMLChildElement:=aXML.CreateElement('element2');
aXMLelement.AppendChild(aXMLChildElement);
aXMLNode:=aXML.CreateTextNode('Noeud2');
aXMLChildElement.AppendChild (aXMLNode);
aXMLChildElement.SetAttribute('attribut1','val14');
aXMLChildElement.SetAttribute('attribut2','val24');

aXML.Save(aPath+aFile)