Jccosta

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; . . .