Duvida - Como ler tag de <recibo> para recuperar informações dos arquivos importados pelo portal do eSocial

[Carlos Alberto Dias Filho]

Prezados(as), se puderem me dizer, como eu faço para acessar os elementos da tag <recibo> dos arquivos importados diretamente no portal do eSocial, usando o método LoadFomFile, eu agradeceria demais,
pois estou realizando assim, um pequeno exemplo me seria suficiente!
 

 LAcbreSocial.Configuracoes.Arquivos.Salvar:= true;
 LAcbreSocial.Eventos.Clear;

 if not LAcbreSocial.Eventos.LoadFromFile( LFileName ) then
  raise Exception.CreateFmt('Arquivo "%s" não pode ser carregado no componente eSocial!', [LFileName]);

for I := 0 to Lc.Eventos.NaoPeriodicos.S2300.Count -1 do
  begin
    Levt:= Lc.Eventos.NaoPeriodicos.S2300.Items[I].EvtTSVInicio;

    
E o que tenho de acessoa objetos são o que mostra na mensagem abaixo!
Preciso recuperar o número do protocolo , e dados como data de processamento original do arquivo, que estão na imagem do XML.

Atenciosamente.

Editado 29 Abril, 2025 por Carlos Alberto Dias Filho
Correção de erros

[Evandro Rocha Almeida]

boa tarde você pode usar a função abaixo para extrair direto do texto: 

lRetorno := ExtractText((iVal),'<recibo>','</recibo>');

//------------------------------------------------------------------------------
function TClasse.ExtractText(iText, iOpenTag,
  iCloseTag: String; iNumPos: Integer): String;
var
  iAux, kAux : Integer;
begin
   Result := '';

   if (Pos(iCloseTag, iText) <> 0) and (Pos(iOpenTag, iText) <> 0) then
   begin
      iAux := Pos(iOpenTag, iText) + Length(iOpenTag)+iNumPos;
      kAux := Pos(iCloseTag, iText);
      Result := Copy(iText, iAux, kAux-iAux);
   end;
end;

Editado 30 Maio, 2025 por Evandro Rocha Almeida