Hola Dec y gracias, bueno acá está mi solución
Código Delphi
[-]
function TForm1.BuscoValorDelNodo(XMLDoc:TXMLDocument;sNodoABuscar:string):String;
var n,n2,nLongNodo:integer;
begin
n:=Pos('<'+sNodoABuscar+'>',XMLDoc.XML.Text);
if n = 0 then begin
Result := '';
Exit;
end;
nLongNodo:= Length(snodoABuscar) + 2;
n2:=PosEx(''+sNodoABuscar+'>',XMLDoc.XML.Text,n);
Result := MidStr(XMLDoc.XML.Text,n+nLongNodo,n2-n-nLongNodo);
end;