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

[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;