Problema com EditMask

E o seguinte pessoal estou usando o seguinte codigo no eveno onexit do dbedit (o codigo esta funcionando o problema é outrro )


var
valor : String;
begin
if TBClientePESSOA.Value = ´JURIDICA´ then begin
if Length(DBEdit3.Text) < 14 then begin
ShowMessage(´Digite Todos os Digitos do CNPJ !´);
DBEdit3.SetFocus;
Abort;
end else begin
valor := DBEdit3.Text;
TBClienteCPF_CNPF.EditMask:= ´99.999.999.9999-99;1;´;
DBEdit3.Text := valor;
end end;
if TBClientePESSOA.Value = ´FISICA´ then begin
if Length(DBEdit3.Text) < 11 then begin
ShowMessage(´Digite Todos os Digitos do CPF !´);
DBEdit3.SetFocus;
Abort;
end else begin
valor:=DBEdit3.Text;
TBClienteCPF_CNPF.EditMask:= ´999.999.999-99;1;´;
DBEdit3.Text := valor;
end end;
TBCliente.Edit;
TBCliente.Post;
end;

so o q esta acontecendo é q se tipo tiver o cpf 12345678910 (é digitado sem os pontos) ao sair ao inves de aplicar o mask fica a primeira classe e o resto fica em branco (assim 123. . - ), gostaria de saber se alguem sabe o resilve o meu problema .