Esta dando erro na unit pcnBPeR na linha BPe.procBPe.dhRecbto := Leitor.rCampo(tcDatHor, 'dhRecbto'); is not a valid integer. Verificando o XML observei que a tag dhRecbto esta sem os segundos.
<dhRecbto>2019-08-06T17:32</dhRecbto>
Na unit pcnLetor no bloco
tcDatHor:
begin
if length(ConteudoTag)>0 then
if pos('/', ConteudoTag) = 0 then
result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 2))) +
EncodeTime(StrToInt(copy(ConteudoTag, 12, 2)), StrToInt(copy(ConteudoTag, 15, 2)), StrToInt(copy(ConteudoTag, 18, 2)), 0)
else
result := EncodeDate(StrToInt(copy(ConteudoTag, 07, 4)), StrToInt(copy(ConteudoTag, 04, 2)), StrToInt(copy(ConteudoTag, 01, 2))) +
EncodeTime(StrToInt(copy(ConteudoTag, 11, 2)), StrToInt(copy(ConteudoTag, 14, 2)), StrToInt(copy(ConteudoTag, 17, 2)), 0)
else
result := 0;
end;
comentei este trecho StrToInt(copy(ConteudoTag, 17, 2))) e passei 00 o erro parou.