حول التاريخ في Maskedit

[kwahab]

السلام عليكم
ابحث عن طريقة تجعل التاريخ في maskedit يعمل بشكل صحيح
حيث اليوم لايتعدي 31 والشهر12 والسنة من 1900 الى 1954
وشكرا

[me_delphi]

هده أحدد الطرق باستعمال الحدث OnExit

PHP كود :

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var M,J,A:Word;
begin
 try
  DecodeDate(StrToDate(MaskEdit1.Text),A,M,J);
  if (A > 1954) or (M > 12) or(J > 31) then
    begin
    ShowMessage('Date not allowed');
    MaskEdit1.Text:= '';
    end;
 except
     ShowMessage('Wrong Date');
     MaskEdit1.Text:= '';
 end;
end; 


[kwahab]

بارك الله فيك