procedure ExportXML;
var Doc: TXMLDocument;
NovoNo: TDomNode;
begin
ReadXMLFile(Doc, '/media/homeM/v1/Projects/Forum/XMLDemo/test.xml');
NovoNo:=nil;
NovoNo:=Doc.DocumentElement.FindNode('item');
if not assigned(NovoNo) then
begin
NovoNo:=Doc.CreateElement('item');
TDOMElement(NovoNo).SetAttribute('ID', '002');
Doc.DocumentElement.AppendChild(NovoNo);
end;
writeXMLFile(Doc, '/media/homeM/v1/Projects/Forum/XMLDemo/test.xml');
Doc.Free;
end;