procedure TForm1.FormCreate(Sender: TObject);begin
  MaskEdit1.EditMask := '!\(999\)000-0000;1';
  MaskEdit1.Text = '';
  MaskEdit1.AutoSelect := False;
end;照着这个程序修改一下!