[fcios]

Hola Dec y gracias, bueno acá está mi solución

Código Delphi [-]
function TForm1.BuscoValorDelNodo(XMLDoc:TXMLDocument;sNodoABuscar:string):{wide}String;
// Busca el 1er valor del nodo sNodoABuscar
var n,n2,nLongNodo:integer;
begin
  n:=Pos('<'+sNodoABuscar+'>',XMLDoc.XML.Text);
  if n = 0 then begin
    Result := '';
    Exit;
  end;
  nLongNodo:= Length(snodoABuscar) + 2;
  // busco desde donde empieza el nodo
  n2:=PosEx('+sNodoABuscar+'>',XMLDoc.XML.Text,n);
  Result := MidStr(XMLDoc.XML.Text,n+nLongNodo,n2-n-nLongNodo);
end;