使用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));