delphi7生成xml问题

sql查询后，同一“id”下有10条记录（“id1”从1到10），自己写的这个，是每个”id1“成了单独的1个文件了。想实现的效果是同一"id"下所有的“id1”为一个文件，也就是node2。