Hola Leopard2,
Al iniciar la variable del XML, yo tengo esto:
Código Delphi
[-]...
var
XMLInit: IXMLDocument;
begin
XMLInit := TXMLDocument.Create(nil);
XMLInit.Active := True;
XMLInit.Version := '1.0';
XMLInit.Encoding := 'UTF-8';
XMLInit.StandAlone := 'yes';
XMLInit.NodeIndentStr := ' ';
XMLInit.Options := XMLInit.Options + [doNodeAutoIndent];
...
...
end;
En tu caso tienes que poner la última línea: XMLInit.Options := XMLInit.Options + [doNodeAutoIndent];
Un saludo.