Avec ce code (tu dois juste ajouter un uses Xml.XMLIntf):


procedure TFormApp.Button1Click(Sender: TObject);
var
XMLDoc: TXMLDocument;
begin
XMLDoc:=TXMLDocument.create(self);
...