Fórum Mascara de Entrada - Delphi #536115

var
mascara string;
begin
mascara := '';
mascara := DBEdtTelefonePrincipal.Text;

mascara:=StringReplace(mascara,'(','', [rfReplaceAll, rfIgnoreCase]);
mascara:=StringReplace(mascara,')','', [rfReplaceAll, rfIgnoreCase]);
mascara:=StringReplace(mascara,'-','', [rfReplaceAll, rfIgnoreCase]);
mascara:=StringReplace(mascara,' ','', [rfReplaceAll, rfIgnoreCase]);

if DBCBPeriodoDeReceb.Text = '' then
 begin
 ShowMessage ('Preencha o campo periodo de recebimento do funcionário');
 cont := 1;
 DBCBperiodoDeReceb.SetFocus;
 end else
if mascara='' then
begin
showmessage('Verifique o telefone');
end else
 if (DBEdtTelefone2.Text = '') and (DBEdtTelefonePrincipal.Text <> '') then
 begin
Dmdados.QFuncionarios.FieldByName('Telefone2').Value := 'S/INFORMACAO';
 end else
  if (DBEdtCelular.Text = '') and (DBEdtTelefonePrincipal.Text <> '') then
 begin
 DmDados.QFuncionarios.FieldByName('Celular').Value := '000000000';
 end;