procedure TForm1.Button1Click(Sender: TObject);
begin
  cxMaskEdit1.Properties.MaskKind := emkRegExpr; // emkRegExprEx
  cxMaskEdit1.Properties.EditMask := '\d*';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // При желании можно сменить символ, скрывающий пароль
  // cxMaskEdit1.Properties.PasswordChar := '*';
  cxMaskEdit1.Properties.EchoMode := eemPassword;
end;