Boa tarde galegona.
Faz o seguinte, pega o arquivo que desenvolvi e coloca no seu projeto.
Nesse caminho da pasta ACBR Fontes\ACBrDFe\ACBrReinf\PCNReinf
Para chamar a função é esse código que implementei, praticamente é o mesma ideia que tem nos exemplos do projeto.
PerApur := ano + '-' + mes;
TipoEvento := 'R-2055';
nrInscEstab := FcnpjEmpresa;
nrInscEstab := retiraCaracter(seleciona2055cpfCnpj.Value);
cnpjPrestador := FcnpjEmpresa;
DataApur := '';
if ACBrReinf1.ConsultaReciboEvento(PerApur, StrToTipoEvento(Ok, TipoEvento),
nrInscEstab, cnpjPrestador,
nrInscTomador, dtApur) then
begin
end;