помогите как записать правильно в xml

[edik]

Вопрос такой как записать в xml но чтобы был записан не в виде строки а в виде выровненных строк код для вывода след-ий

var    xml,data,node,selected,neww:IXMLDOMNode;
        selected2:IXMLDOMAttribute;
        filedata:string;
        name,namet     : string;
        i,j:integer;

  if (Doc1 <> nil) and (Doc2 <> nil) and (Doc3 <> nil) and (Doc4 <> nil) then
  begin
     for i:=0 to form1.CheckListBox1.Items.Count-1 do
    begin
      if (Doc5 = nil) then
       begin
        Doc5:=CoDOMDocument.Create;
        Doc5.appendChild(Doc5.createElement('xml'));
    end;

    if(Doc5 <> nil) then
    begin
      xml := Doc5.firstChild;
      for j:=xml.childNodes.length -1 downto 0  do
        xml.removeChild(xml.childNodes.item[j]);
      for i:= 0 to form1.ComponentCount-1 do
      begin
 begin
        if (form1.Components[i] is TEdit) then
        begin
          name := (form1.Components[i] as TEdit).Text;
          namet := (form1.Components[i] as TEdit).Name;
          neww := Doc5.createElement('Property');

          selected2 := Doc5.createAttribute('Control');
          selected2.nodeValue := namet;
          neww.attributes.setNamedItem(selected2);

          selected2 := Doc5.createAttribute('Value');
          selected2.nodeValue := name;
          neww.attributes.setNamedItem(selected2);

          xml.appendChild(neww);
        end;
end;

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор