XML_PARTNER : Recupérer la valeur d'un attribut d'un élément donnée

Bonjour,

j'essaie en vain de récupérer la valeur d'un attribut d'un noeud.

ex Fichier XML:

Code:

1
2
3
4
5
6
7
 
<Data ID="1">
   <Value>04</Value>
</Data> 
<Data ID="2">
   <Value>06</Value>
</Data>

ex Source Delphi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
DOM := TXpObjModel.Create(nil);
DOM.LoadDataSource(XML_File);
NodeList := DOM.Document.SelectNodes('Data');
for Index := 1 to NodeList.Length do
begin
   Node := NodeList.Item(Index-1);
   if Node <> nil then
   begin
      Showmessage(Node.StringValue);
      {et aussi récupérer la valeur de l'attribut 'ID'}
   end;
end;

En gros, je voudrais récupérer si possible "Value" et "ID" de chaque élément.