Zapis XML z ADOQuery

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ComObj,
  Data.DB,
  Data.Win.ADODB,
  System.Variants,
  System.DateUtils,
  XMLDoc,
  XMLIntf,
  Xml.xmldom;

var
  config: IXMLDocument;
  sqlsrv, sqluser, sqlpass, sqldb: string;
  query: TADOQuery;
  connStr: string;
  path, sqlquery: string;
  f: TextFile;
  i: integer;
  s: string;
  MainNode: IXMLNode;
  //ds: TDataSet;
begin
  CoInitializeEx(nil, 0);
  config := NewXMLDocument('1.0');
  config.LoadFromFile(ParamStr(1));
  MainNode := config.DocumentElement;
  sqlsrv := MainNode.ChildNodes[0].ChildNodes[0].Text;
  sqluser := MainNode.ChildNodes[0].ChildNodes[2].Text;
  sqlpass := MainNode.ChildNodes[0].ChildNodes[3].Text;
  sqldb := MainNode.ChildNodes[0].ChildNodes[1].Text;
  path := MainNode.ChildNodes[1].ChildNodes[0].Text;
  sqlquery := MainNode.ChildNodes[2].ChildNodes[0].Text;
  connStr := 'Provider=SQLOLEDB.1;Password=' + sqlpass + ';Persist Security Info=True;User ID=' + sqluser + ';Initial Catalog=' + sqldb + ';Data Source=' + sqlsrv;
  query := TADOQuery.Create(nil);
  query.ConnectionString := connStr;
  query.SQL.Text := sqlquery;
  query.Active := True;
  AssignFile(f, path);
  Rewrite(f);
  for i := 0 to query.RecordCount - 1 do
  begin
    s := query.Fields[0].AsString;
    Write(f, s);
    query.Next;
  end;
  CloseFile(f);
end.

const
  adExecuteStream = 1024;
var
  xmlDoc, RecordsAffected: OleVariant;
  cmd: TADOCommand;

xmlDoc := CreateOleObject('MSXML2.DOMDocument.3.0'); // or CoDomDocument30.Create;
xmlDoc.async := False;

cmd := TADOCommand.Create(nil);    
// specify your connection string
cmd.ConnectionString := 'Provider=SQLOLEDB;Data Source=(local);...';
cmd.CommandType := cmdText;
cmd.CommandText := 'select top 1 * from items for xml auto';
cmd.Properties['Output Stream'].Value := xmlDoc;
cmd.Properties['XML Root'].Value := 'RootNode';
cmd.CommandObject.Execute(RecordsAffected, EmptyParam, adExecuteStream);

xmlDoc.save('d:\test.xml');
cmd.Free;