كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟

[fhol]

السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.

حياك لله اخي العزيز و هذا هو مثال الي عملته بحيث يقوم بتقسيم قائمة أرقام الهواتف الى كل 1000 رقم 
المطلوب اخي العزيز لم اعرف كيف اضع شروط تحقق يستلزم ادخال رقم هاتف فقط و امامها علامة + 
و بارك لله فيكم 

PHP كود :

var
i:integer ;

   begin

  i:=j ;
  
   if i <=memo1.Lines.Count-1 then begin

   memo2.clear ;

   for j:=j to j+999 do

   begin
 
   Memo2.Lines.Add(Memo1.Lines[j]);

     end ;
   
   end ;