Realmente, ainda no Delphi 2010, o problema existe. A solução temporária é simples, basta inserir uma linha no código para resolver o problema. Segue abaixo:

Crie o XML com UTF-16 e, quando o seu XML estiver pronto para resposta, execute o codigo abaixo:

Result := STRTRAN(vXMLDoc.XML.Text, 'UTF-16', 'ISO-8859-1');

Sds

Reportei este erro ano passado no Quality Central (QC 80008) e os caras não consegue entender um erro básico no XML, peços-lhe a todos que votem no meu QC e comentem sobre o problema para ver se conseguem corrigir rápido isto, 1 ano e nada de correção do Delphi sobre este problema, sei que existe “macetes” para contornar, mas é brincadeira, a ferramenta não pode cometer tal erro e ficar deste jeito… valeu galera…

<?xml version="1.0" encoding="ASCII"?>
<Package>
<Header Version="2.1" Id="1" />
<Data Usuario="eagle" Senha="eagle" />
</Package>

Vc. pode usar o código exemplo abaixo:

  vXMLDoc := TXMLDocument.Create(self);
  Try
  With vXMLDoc do begin
       Active := True;
       Version := '1.0';
       Encoding := 'ASCII';
       // Adiciona Pckage
       AddChild('Package');
       NodeA := Node.ChildNodes['Package'];
       // Adiciona Header em Package
       NodeA.AddChild('Header');
       NodeA.ChildNodes['Header'].Attributes['Version'] := '2.1';
       NodeA.ChildNodes['Header'].Attributes['Id'] := '1';
       // Adiciona Data em Package
       NodeA.AddChild('Data');
       NodeA.ChildNodes['Data'].Attributes['Usuario'] := 'eagle';
       NodeA.ChildNodes['Data'].Attributes['Senha'] := 'eagle';
  end;
  vXMLDoc.SaveToFile('exemplo.xml');
  finally
     vXMLDoc.Free;
  end;

No caso do D2010; adicione o macete explicado nesse tópico para substituir o encoding.

Qual o comando para criar a tag Package e depois criar as outras tags dentro dela, observando que a tag package fecha com e as outras apenas com />.