[Rosenkrantz]

Если вы имеете в виду сохранение в структурированном виде в файл, то можно вот так:

Код:

procedure SaveFormattedXML(XMLDoc: TXMLDocument; const FileName: String);
var
  F: TFileStream;
  S: String;
begin
  F := TFileStream.Create(FileName, fmCreate);
  try
    S := FormatXMLData(XMLDoc.XML.Text);
    F.WriteBuffer(S[1], Length(S));
  finally
    F.Free;
  end;
end;