(Resolvido) Formatar numero telefone evento onchange

[renanbg]

Hoje uso algo assim:

  TEdit(Sender).Text := Mascara(TEdit(Sender).Text,'(99) 99999-9999'); 
  TEdit(Sender).SelStart := Length(TEdit(Sender).Text);

Então a formatação vai ocorrendo ao digitar.
Será que existe uma forma da formatação funcionar tanto para 14 como para 15 caracteres no mesmo campo?

A ideia seria poder digitar tanto um fixo, como um celular no mesmo campo.

PS: precisa ser no onchange, Onexit não serve.

[Jhonas]

use o componente MaskEdit da paleta Additional

na propriedade EditMask coloque !\(999\) #0000-0000;1;_

Obs: Quando quiser um digito a menos na mascara, basta dar um espaço com a Barra de espaços no inicio do numero do telefone ( # )

abraço