[Rosenkrantz]

Создать новый XML-документ:

Код:

procedure TMainForm.Button1Click(Sender: TObject);
var
  XML       : TXMLDocument;
  Paragraf,
  Node      : IXMLNode;
begin
  XML := TXMLDocument.Create(nil);
  try
    XML.Active := True;
    XML.Version := '1.0';
    XML.Encoding := 'UTF-8';
    XML.DocumentElement := XML.CreateNode('document');
    XML.DocumentElement.Attributes['name'] := 'Новый документ';


    Paragraf := XML.DocumentElement.AddChild('paragraf');
    Paragraf.Attributes['justify'] := 'left';

    Node      := Paragraf.AddChild('topindent');
    Node.Text := '12';

    Node      := Paragraf.AddChild('bottomindent');
    Node.Text := '6';

    Node      := Paragraf.AddChild('text');
    Node.Text := 'Здесь текст абзаца';

    XML.SaveToFile('c:\newfile.xml');
  finally
    XML.Free;
  end;
end;

Про XML доступно можно почитать например здесь.