数据库生成xml格式

xml.Active:=True;
  xml.Version:='1.0';
  xml.Encoding:='GB2312';
  xmlroot:=xml.AddChild('root');

    while not qrySQL.Eof do begin
      for j:=0 to qrySQL.Fields.Count-1 do
      begin
        xmlField:=xmlroot.AddChild(qrysql.fields[i]);
        xmlField.Text:=qrySQL.FieldByName(qrysql.fields[i]).AsString;
      end;
      qrySQL.Next;
    end;

xml.SaveToFile('c:\aa.xml');