كيفية التاكد من صحة التاريخ

السلام عليكم

لقد وجدت سؤال في السابق لاحد الاخوة عن

كيفية التاكد من صحة التاريخ عند كتابته في edit

لكني كنت مشغول شويه والان

function tstdate(txt:string):boolean;

begin

try txt:=datetostr(strtodate(txt)); tstdate:=true;

except tstdate:=false;

end;end;

procedure TForm1.Edit1Exit(Sender: TObject);

begin

if not (tstdate(edit1.text)) then

begin

MessageBox( Handle, PChar('تاريخ غير صحيح '), PChar('خطأ'), MB_OK+ MB_DEFBUTTON1 +MB_RIGHT +MB_APPLMODAL);

edit1.Clear;edit1.SetFocus;

end;

end;

تحياتي

اخوكم باتي