เขียน Function เช็ควันที่ใน TMaskEdit [Delphi]

{ ตัวอย่างการใช้งาน TMaskEdit กับ Function ที่เขียนขึ้นโดยใช้งานร่วมกับ Event OnExit }

{Function}
function TF_emp.checkDateMaskEdit(MaskEdit : TMaskEdit):TMaskEdit;
var
day : string ;
mouth : string ;
year : string ;
i : Integer ;
begin

  { บันทึกข้อความแทนช่องว่างด้วบเลข 0 }
  MaskEdit.Text :=  StringReplace(MaskEdit.Text,' ','0',[
    rfReplaceAll, rfIgnoreCase]);

for i := 1 to Length(MaskEdit.Text) do begin
     if i < 3 then begin
      day := day+trim(MaskEdit.Text[i]) ;
     end
     else if (i>3) and (i<6) then begin
      mouth := mouth+trim(MaskEdit.Text[i]) ;
     end
     else if i>6 then begin
      year := year+trim(MaskEdit.Text[i]) ;
     end;
end;

if StrToInt(day) > 31 then begin
  ShowMessage('รูปแบบวันที่ผิดพลาด');
  MaskEdit.Text := '';
end
else if StrToInt(mouth) > 12 then begin
  ShowMessage('รูปแบบเดือนผิดพลาด');
  MaskEdit.Text := '';
end;
Result := MaskEdit ;
end;
{Function}

{Event}
ME_date_start_w := checkDateMaskEdit(ME_date_start_w);
{Event}