MSXML et Delphi

Bonjour
j'ai un fichier xml de cette forme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<?xml version="1.0" encoding="iso-8859-1" ?>
<inmuebles>
  <inmueble>
    <oficina>99</oficina>
    <codigo>2674</codigo>
    <fecha_alta>2008-10-16 12:00:00</fecha_alta>
    <id_tipo>6</id_tipo>
    <tipo>Suelo</tipo>
    <id_subtipo>{79E6D897-D5E7-42F2-A774-55D4563C118A}</id_subtipo>
    <subtipo>Residencial</subtipo>
  </inmueble>
  <inmueble>
    <oficina>4921</oficina>
    <codigo>251</codigo>
    <fecha_alta>2008-06-06 12:00:00</fecha_alta>
    <id_tipo>2</id_tipo>
    <tipo>Casa</tipo>
    <id_subtipo>{8B492821-69C3-4E89-B652-6E36F227D743}</id_subtipo>
    <subtipo>Adosada</subtipo>
  </inmueble>
<inmuebles>

et je veux lire clés => valeurs:(Oficina => 99) du nœud inmueble via une boucle.

j'arrive a lire la valeur via "List.item[i].text" mais la clé non
Merci de votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Ttest.Button2Click(Sender: TObject);
var
    Doc: IXMLDOMDocument;
    Element: IXMLDOMElement;
    List: IXMLDOMNodeList;
    attrib : IXMLDOMNode;
    Path,ID,title,producer: string;
    i: integer;
  begin
    Doc := CreateOleObject('Microsoft.XMLDOM')
                               as IXMLDomDocument;
    Doc.load('INT-2008-12-23.xml');
    Element := Doc.documentElement;
    List := Element.getElementsByTagName('inmueble');
    for i:=0 to List.length-1  do begin
    Memo1.Lines.Add( Clé +'  '+List.item[i].text);
    end;
end;