Pegar parte da string

[Élviro Cavalcanti]

Bom dia, estou querendo capturar apenas uma parte do texto abaixo, mas infelizmente existem mais de dois campos como referência

 

<retConsReciNFe versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe">
    <tpAmb>2</tpAmb>
    <verAplic>NFEPE_H_20.01.03.167</verAplic>
    <nRec>261180001088199</nRec>
    <cStat>104</cStat>
    <xMotivo>Lote processado</xMotivo>
    <cUF>26</cUF><dhRecbto>2018-08-23T15:23:13-03:00</dhRecbto>
    <protNFe versao="4.00"><infProt Id="NFe1"><tpAmb>2</tpAmb>
            <verAplic>NFEPE_H_20.01.03.167</verAplic>
            <chNFe>26180829187557000165550010000000201000000206</chNFe>
            <dhRecbto>2018-08-23T15:23:13-03:00</dhRecbto><cStat>204</cStat>
            <xMotivo>Rejeição: Duplicidade de NF-e [nRec: 261180001081986]</xMotivo>
        </infProt></protNFe></retConsReciNFe>

 

Estou pegando entre xMotivo e /xMotivo, mas pega apenas a primeira linha e estou precisando da segunda linha que contém essa informação que seria  "Rejeição: Duplicidade de NF-e [nRec: 261180001081986]" alguém sabe como posso fazer?

 

[EMBarbosa]

Como você está fazendo atualmente?

[Élviro Cavalcanti]

Atualmente uso assim

 

function TfrmExemplo.obterNroResultado(const aXML: XMLString; aTag,
  aEndTag: string): string;
var
  _Posini, _Posfim  : integer;
Begin
  Result := '';
  _Posini:= Pos(aTag,aXML);
  _Posfim:= Pos(aEndTag,aXML);
  if  ( _Posini > 0 ) then                                                
    begin
      inc(_PosIni, Length(aTag));
      Result:=Copy(aXML,_Posini+1,(_PosFim-_PosIni)-1);                   
    end;
end;

obterNroResultado(Memo2.text, '<xMotivo','</xMotivo');

 

mas infelizmente só traz o primeiro resultado e o que preciso é o segundo

[EMBarbosa]

Basta você refazer a pesquisa numa substring começando a partir da posição final. Consegue fazer isso?