Sr. Italo, bom dia e obrigado pela resposta.
Logo desconfiei do meu código, porém antes de atualizar funcionava, tanto no Demo quanto na nossa aplicação, parti para verificar se não era parâmetros que estavam faltando, tudo OK.
Enfim, criei uma vm do 0 atualizei tudo e não resolveu, até mesmo no demo não funciona conforme a imagem acima na abertura do post, então mãos a obra, Debugando o Fonte da unit pcnLeitor encontrei nessas linhas abaixo o campo ConteudoTag = '2014-12-22', que não se encaixa nas condições do "case topo" e o retorno é "Result = 0', acrescentei a condição length(ConteudoTag)=10 e funcionou. Agora não sei se é um erro meu em atualizar ou usar o componente ou um erro da condição.
case Tipo of
tcStr : result := ReverterFiltroTextoXML(ConteudoTag);
tcDat : begin
if length(ConteudoTag)>12 then <<---- Alterei para ( (length(ConteudoTag)>12) or (length(ConteudoTag)=10) ) === Supimpa está funcionando
result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 2)))
else if length(ConteudoTag)>0 then
if length(ConteudoTag)=12 then
result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 1)))
else
result:=0;
end;
.
.
.