uses System.SysUtils,
  Xml.XMLDoc, Xml.XMLIntf;

var
  Doc: IXMLDocument;
  Root: IXMLNode;
  Number: Integer;
begin
  Doc := NewXMLDocument;
  Root := Doc.AddChild('items');
  for Number in [2, 5, 7] do
    Root.AddChild('item').Text :=
      Number.ToString;

  WriteLn(Root.XML);
  //<items><item>2</item><item>5</item>
  //<item>7</item></items>
end.