Lectura de XML

[Chaja]

Hola:
bien, estoy tratando de leer un xml, que me viene desde un web service de la administracion federal de impuesto publicos AFIP en Argentina. Es la respuesta a una consulta de facturas Electronicas. Este XML de respuesta es asi:

<?xml version="1.0" encoding="UTF-8"?>
-<soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">-<soap:Body>-<FECompConsultarResponse xmlns="http://ar.gov.afip.dif.FEV1/">-<FECompConsultarResult>-<ResultGet><Concepto>3</Concepto><DocTipo>80</DocTipo><DocNro>30683409991</DocNro><CbteDesde>7</CbteDesde><CbteHasta>7</CbteHasta><CbteFch>20140217</CbteFch><ImpTotal>524.54</ImpTotal><ImpTotConc>0</ImpTotConc><ImpNeto>433.5</ImpNeto><ImpOpEx>0</ImpOpEx><ImpTrib>0</ImpTrib><ImpIVA>91.04</ImpIVA><FchServDesde>20140217</FchServDesde><FchServHasta>20140217</FchServHasta><FchVtoPago>20140217</FchVtoPago><MonId>PES</MonId><MonCotiz>1</MonCotiz>-<Iva>-<AlicIva><Id>5</Id><BaseImp>433.5</BaseImp><Importe>91.04</Importe></AlicIva></Iva><Resultado>A</Resultado><CodAutorizacion>64072180426393</CodAutorizacion><EmisionTipo>CAE</EmisionTipo><FchVto>20140227</FchVto><FchProceso>20140217184340</FchProceso><PtoVta>5</PtoVta><CbteTipo>1</CbteTipo></ResultGet></FECompConsultarResult></FECompConsultarResponse></soap:Body></soap:Envelope>

la carga del documento lo hago con un XMLDocument.
Bueno lo que quier es leer cierto valores que me devuelve, como ser el nro de comprobante, el monto sin iva, el iva y demas
El web service no tiene una funcion para leer un grupo de comprobantes asi que hago una cosnulta tantas veces como comprobantes quiero de esta forma:

procedure TFormFiscalizacionLote.btListarComprobClick(Sender: TObject);
var aux:String;
par1,par2:WideString;
I,TipoCpbte,PuntoVta,NroDesde,NroHasta:Integer;
Nro: Integer;
begin
inherited;

lvGeneral.Clear;

Aux:= CDSEmpresa.FieldByName('cuit').AsString;
while Pos('-',Aux)<>0 do
delete(Aux,Pos('-',Aux),1);

wsfev1.Reset;
wsfev1.CUIT := StrToFloat(Aux); //FCuitVdor; //20129063662; // Cuit del vendedor
wsfev1.URL := URLWSW;

if wsfev1.login(FormFiscalizacionLote.CertificadoElectronico,FormFiscalizacionLote.ClaveElectronica,URL WSAA) then
begin
wsfev1.Reset;
PuntoVta:= StrToInt(edPrefijo.Text);
NroDesde := StrToInt(edDesde.Text);
NroHasta := StrToInt(edHasta.Text);
lvGeneral.Clear;

for Nro := NroDesde to NroHasta do
begin
if (cbTp.Text='FC') and (cbLet.Text='A') Then
TipoCpbte:=1
else
if (cbTp.Text='FC') and (cbLet.Text='B') Then
TipoCpbte:=6
else
if (cbTp.Text='NC') and (cbLet.Text='A') Then
TipoCpbte:=3
else
if (cbTp.Text='NC') and (cbLet.Text='B') Then
TipoCpbte:=8
else
if (cbTp.Text='FO') and (cbLet.Text='A') Then
TipoCpbte:=5
else
if (cbTp.Text='FO') and (cbLet.Text='B') Then
TipoCpbte:=10;
if not wsfev1.CmpConsultar(TipoCpbte, PuntoVta, Nro,par1,par2) then
ShowMessage (wsfev1.ErrorDesc)
else
begin
XMLDocument1.XML.Text :=wsfev1.XMLResponse;
XMLDocument1.Active:=True;
// XMLDocument1.SaveToFile('C:\RespuestaFiscal.xml');
NodoXML:=XMLDocument1.DocumentElement.ChildNodes.Nodes[0];
DisplayNodoRenglon(NodoXML);
// DisplayNodo(NodoXML);
end;
end;
end;
end;




y DsiplayNodo() es


procedure TFormFiscalizacionLote.DisplayNodoRenglon(Nodo:IXMLNode );
var i:Integer;
Cadena:String;
begin
Lista:=lvGeneral.Items.Add;
// Nodo.ChildNodes.FindNode('FchServDesde').NodeValue;
Cadena:=Nodo.ChildNodes['FchServDesde'].Text;
Lista.SubItems.Add(Cadena);

Lista.SubItems.Add(cbTipo.Text);
Lista.SubItems.Add(cbTipo.Text);
Lista.SubItems.Add(cbLet.Text);

// Nodo.ChildNodes.FindNode('PtoVta');
Lista.SubItems.Add(Copy('0000',1,4-Length(Nodo.ChildNodes['PtoVta'].Text))+Nodo.ChildNodes['PtoVta'].Text);

// Nodo.ChildNodes.FindNode('CbteDesde');
Lista.SubItems.Add(Copy('00000000',1,8-Length(Nodo.ChildNodes['CbteDesde'].Text))+Nodo.ChildNodes['CbteDesde'].Text);

// Nodo.ChildNodes.FindNode('DocNro');
Lista.SubItems.Add(Nodo.ChildNodes['DocNro'].Text);

// Nodo.ChildNodes.FindNode('ImpNeto');
Lista.SubItems.Add(Nodo.ChildNodes['ImpNeto'].Text);

// Nodo.ChildNodes.FindNode('ImpIva');
Lista.SubItems.Add(Nodo.ChildNodes['ImpIva'].Text);

// Nodo.ChildNodes.FindNode('ImpTotal');
Lista.SubItems.Add(Nodo.ChildNodes['ImpTotal'].Text);

// Nodo.ChildNodes.FindNode('CodAutorizacion');
Lista.SubItems.Add(Nodo.ChildNodes['CodAutorizacion'].Text);

// Nodo.ChildNodes.FindNode('FchProceso');
Lista.SubItems.Add(Nodo.ChildNodes['FchProceso'].Text);

end;



a medido que voy leyendo los cargo en un ListView.
parceria que todo bien, pero cuando hago la lactura de cada nodo, estoy me tran datos vacios.

me pueden orientar donde esta el error???

Gracias

[Hopeco]

Estimado...veo que el codigo es correcto, es mas lo he probado porque tengo el mismo inconveniente.
Has podido solucionar este problema???
Gracias