使用delphi可否让xml自动换行缩进

使用delphi能否让xml自动换行缩进

这个截图是通过delphi读写xml生成的数据
我想让生成的数据可以自动边行和缩进，类似于下图


生成第一个图的代码如下（部分代码）：
 Xml.Active :=True;
  Xml.Version :='1.0';
  Xml.Encoding :='GB2312';

  Rootnode :=Xml.CreateNode('CIF_INFO');
  Xml.DocumentElement :=Rootnode;
  node :=Xml.CreateNode('TXNCODE');
  Rootnode.ChildNodes.Add(node);
  node.Text :='420001';
  node :=Xml.CreateNode('RESPCODE');
  Rootnode.ChildNodes.Add(node);
  node.Text :='222222';
  node := Xml.CreateNode('CIFID');
  Rootnode.ChildNodes.Add(node);
  node.Text := '0030209728';
  node := Xml.CreateNode('RESCODE');
  Rootnode.ChildNodes.Add(node);
  node.Text := '0000';
  node := Xml.CreateNode('RESMSG');
  Rootnode.ChildNodes.Add(node);
  node.Text := '1111';
  Xml.SaveToFile('aaa.xml');
  xml.Active := False;
  showmessage('创建成功！');
请求帮助，试了好多办法都不行
------解决方案--------------------
XMLDoc单元有一个FormatXMLData函数
------解决方案--------------------
楼上正解
unit XMLDoc;
function FormatXMLData(const XMLData: DOMString): DOMString;

示例
  CurrentEditor.Lines.Text := FormatXMLData(trim(CurrentEditor.Lines.Text));