xml et delphi et interbase

Bonjour
j'ai un fichier xml comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<?xml version="1.0"?>
<ExportXml>
	<Acheteurs>
		<Acheteur>
			<Nom>LOPEZ</Nom>
			<Prenom>MAX</Prenom>
			<Adresse/>
			<Complement/>
			<CodePostal/>
			<Ville/>
			<Pays/>
			<DateInscription>2012-06-29 19:47:03</DateInscription>
			<Type>Pour investissement</Type>
			<TypeRecherche>Région</TypeRecherche>
			<PaysRecherche>France</PaysRecherche>
			<VilleRecherche/>
			<DistanceRecherche/>
			<Departements/>
			<Regions>
				<Region>Lorraine</Region>
			</Regions>
			<Type>Vente</Type>
			<Categories>
				<Categorie>Appartement</Categorie>
			</Categories>
			<BudgetMin/>
			<BudgetMax/>
			<SurfaceMin/>
			<SurfaceMax/>
			<Financement>1</Financement>
		</Acheteur>

Je n'arrive pas à remplir ma base de données surtout au niveau des régions

Comment faire ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
NodeClass2 := XMLDocument1.DocumentElement.ChildNodes.getNode(k);
                      i:= DernierAcheteur;
                      For n:=0 to  NodeClass2.ChildNodes.Count -1 do
                       begin
                        NodeClass1 := NodeClass2.ChildNodes.getNode(n);
                        chpsNOMCONTACT := NodeClass1.ChildNodes.Nodes['Nom'].text + ' ' + NodeClass1.ChildNodes.Nodes['Prenom'].text;
                        chpsprenom     := NodeClass1.ChildNodes.Nodes['Prenom'].text;
                        chpsadrcontact := NodeClass1.ChildNodes.Nodes['Adresse'].Text;
                        chpsCPCONTACT  := NodeClass1.ChildNodes.Nodes['CodePostal'].text;
                        chpsvillecontact:= NodeClass1.ChildNodes.Nodes['Ville'].text;
                        chpspays        := NodeClass1.ChildNodes.Nodes['Pays'].text;
                        //chpsTELCONTACT := NodeClass1.ChildNodes.Nodes['Telephone'].text;
                        //chpsEmail      := NodeClass1.ChildNodes.Nodes['Email'].text;
                        chpsdateannonce :=  NodeClass1.ChildNodes.Nodes['DateInscription'].Text;
                        chpsdateannonce := Copy(chpsdateannonce,9,2)+'/'+Copy(chpsdateannonce,6,2)+'/'+Copy(chpsdateannonce,0,4);
                        chpstypetransaction := NodeClass1.ChildNodes.Nodes['Type'].Text;
                        chpstypebien        := StringCorrect(NodeClass1.ChildNodes.Nodes['TypeRecherche'].text);
                        chpspaysrech        := StringCorrect(NodeClass1.ChildNodes.Nodes['PaysRecherche'].text);
                        chpsvillerech       := StringCorrect(NodeClass1.ChildNodes.Nodes['VilleRecherche'].text);
                        chpsdept            := StringCorrect(NodeClass1.ChildNodes.Nodes['Departement'].text);

Merci d'avance