چک کردن تاریخ وارد شده در ماسک ادیت

این فانکشنیه که من واسه کنترل تاریخ تو ماسک نوشتم
تو ارشیوم داشت خاک میخورد :biggrin:

کد:

---

function check_maskdate(str:String ):Boolean ;
var
  m,d:Integer;
  b:Boolean ;

  begin
b:=true;
if b and (str='    /  /  ')then
 begin
 b:=false;
 showmessage('!تاريخ نامشخص است');
 end
 else
 begin

if pos(' ',str)>0 then
  begin
  showmessage('!تاريخ اشتباه وارد شده است');
  b:=false;
  end
else
begin


    m:=strtoint(copy(str,6,2));
    d:=strtoint(copy(str,9,2));
      if (m<1)or(m>12) then
        begin
          showmessage('!ماه جاري اشتباه وارد شده است');
          b:=false;
        end;

        if m=12 then
          begin
            if (d<1) or (d>29) then
            begin
              showmessage('!ماه جاري 29 روز ميباشد');
              b:=False ;
              end;
          end;


        if m>6 then
          begin
            if (d<1)or(d>30) then
              begin
              showmessage('!روز تاريخ مشخص نميباشد');
              b:=false;
              end;
          end;

        if m<7 then
          begin
            if (d<1) or(d>31) then
              begin
              showmessage('!روز تاريخ مشخص نميباشد');
              b:=false;
              end;
          end;
end;
end;


    check_maskdate:=b;


end;

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var b1:Boolean;
begin
b1:=check_maskdate(MaskEdit1.Text);
 if b1=false then
  maskedit1.SetFocus
  else
  MaskEdit2.SetFocus;

end;

---

امیدوارم خشتون بیاد.راستی صلوات یادتون نره