مشكل في عدم قبول المكون edit ارقام اكثر من 9

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير

[ghostdz]

السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير

وعليكم السلام ورحمة الله تعالى وبركاته
في الحالة الإفتراضية edit عدد الحروف التي يستقبلها غير محدود إلا إذا قمت بتغيير قيمة MaxLength حيث في الحالة الإفتراضية تكون 0
ويمكنك جعله يقبل الأرقام فقط بتغيير قيمة NumbersOnly إلى True

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
هذا الكود وضعته للمقارنة بين الرقم الموجود بالأديت والحقل Mle التابع للجدول table1
واثناء تنفيذ الأجراء لايقبل اثر من 9 ارقام رغم وضع NumbersOnly الى true
ورغم اعطاء قيمة 20 للـ MaxLength 

كود :

var fch: TForm3; begin   fch:=TForm3.create(self);   if key=#13 then   begin     DM.Table1.Open;     if EdtMle.Text=DM.Table1.Fieldvalues['Mle'] then     begin     ArabShowMessage('هذا الرقم موجود من قبل ');     PanelAjoute.Visible:=false;     end     else     begin     PanelAjoute.visible:=false;       with DM do       begin       Table1.insert;       Table1.fieldvalues['Mle']:=strtoint(EdtMle.Text);       Table1.Post;       end;       fch.ShowModal;       fch.Free;     end;   end;

[ghostdz]

حسب ما فهمت من قولك المشكل ليس في عملية الإدخال إنما في المقارنة 
حسب ظني أن المشكل في عملية التحويل من string إلى integer ، حيث يجب أن تأخذ في الحسبان نوع الحقل
إستخدم StrToInt64 عوضا عن StrToInt