من برای محدود کردن کاربران به این که فقط عدد وارد نماییند به این صورت عمل کرده ام
if (ord(Key)<48) or (ord(key)>57) then

key:=#0;


مشکل اینجاست که کلید back هم غیر فعال میشه