Fórum Evento AfterScroll da tabela no DataModule. #157285

Olá Pessoal !
Estou desenvolvendo um sistema e num dos forms de cadastro quero selecionar através de DbRadioGroup se a ´Pessoa´ é do tipo Física ou Jurídica. Então coloquei a seguinte programação no evento AfterScroll da tabela que criei no DataModule:
#
procedure Tdtm.tblTranspAfterScroll(DataSet: TDataSet);
begin
//Para mascarar o campo CPF / CNPJ de acordo com a escolha
if (dtm.tblTranspTipo.Value = ´F´) then
begin
dtm.tblTranspCPF_CNPJ.EditMask := ´999.999.999-99;1; ´;
dtm.tblTranspCI_INCRICAO_ESTADUAL.EditMask := ´9999999999;1; ´;
end
else
begin
dtm.tblTranspCPF_CNPJ.EditMask := ´99.999.999/9999-99;1; ´;
dtm.tblTranspCI_INCRICAO_ESTADUAL.EditMask := ´999/999.999-9;1; ´;
end
end;

Porém se o tipo de pessoa selecionada for Jurídica, no banco de dados (Interbase) não está armazenando os últimos 3 algarismos do CNPJ e os 2 últimos algarismos da Inscrição Estadual.
O que está errado na programação? Ou não tem nada errado?
E alguém pode me passar as rotinas para validar o CPF e a CNPJ ?