использовать NativeXML
xmlDoc = new TNativeXml("test");
xmlDoc->EncodingString = "GB2312" ;
xmlDoc->XmlFormat = xfReadable;
xmlNode = xmlDoc->Root->NodeNew("report") ;
xmlNode->WriteString("date","2008-6-8") ;
xmlNode->WriteString("road0","10") ;
xmlNode->WriteString("road1","8") ;
xmlNode = xmlDoc->Root->NodeNew("ctrParm") ;
xmlNode->WriteString("parm0","0") ;
xmlNode->WriteString("parm1","1") ;
xmlNode->WriteString("parm2","2") ;
xmlDoc->SaveToFile("test.xml") ;
delete xmlDoc ;