obrigado Juliomar.
Encontrei o local do erro e fiz a devida alteração, que resolveu o meu problema:
na unit ACBrValidador, alterei:
function FormatarCEP(const AValue: String): String;
Var S : String ;
begin
S := PadRight( OnlyNumber(AValue), 8, '0') ; { Prenche zeros a direita }
Result := copy(S,1,5) + '-' + copy(S,6,3) ;
end;
para:
function FormatarCEP(const AValue: String): String;
Var S : String ;
begin
S := PadLeft(OnlyNumber(AValue), 8, '0') ; { Prenche zeros a esquerda }
Result := copy(S,1,5) + '-' + copy(S,6,3) ;
end;
att,
Juliano