محدود کردن تکست باکس به اعداد

[b_itman_b]

با تشکر از مدیرجون با اجازه ایشون یکن توضیح بدم.
تابع اولی (delete_kama) رو که باید در محل implementation یا همون imp بنویسیم برای اینه که مثلا وقتی عدد 1234 رو نویشتیم و تبدیل شد به 1،234 ، حالا وقتی میخوایم عدد 567 رو هم بهش اضافه کنیم ، بیاد و اول کامای اولی رو حذف کنه تا طول واقعی رشته بدست بیاد که بتونه سه رقم سه رقم جداش کنه.برای حالت 1،234،567 هم همینطوره و باید تمامی کاما ها حذف بشه و عملیات جداسازی از اول شروع بشه انگار که یک دفعه عدد 1234567 رو بهش دادیم نه به صورت کاراکتر به کاراکتر.
در مورد دستوره* delete(s,p,1) هم که میاد و از رشته s له اندازه 1 واحد* و از کاراکتر pام پاک میکنه.در مورد دستوره
insert(s,mystr,i-2)هم باید گفت که کاراکتر یا رشته S رو در رشته MYSTR در محل کاراکتر i-2 اضافه میکنه و وقتی این کار رو کرد مکان نما به همون محل انتقال می یابد و با دستور
DBEdit1.SelStart:=length(mystr) میاد و مکان نما رو به محل کاراکتر length(mystr) میبره که در اینجا میشه طول رشته یا همون آخره رشته که کاراکتر های بعدی طبق روال عادی به آخر رشته اضافه شوند.فقط حکم دستوره mystr:=mystr رو نمی فهمم.با تشکر و عذر خواهی از اساتید