كيف تقسيم كل سطر مكتوب بمكون Memo ووضعها بمكونات Edit

[bouazza8]

السلام عليكم
لدى MEMO1 به عدة سطور كل سطر به مثلا هدا
11112223333344
كيف تقسيم كل سطر مكتوب بمكون Memo ووضعها بمكونات Edit كما يلي:
يأخد من السطر 4 ارقام ثم 3 ارقام من نهاية 4 ارقام الاولى ثم 5 ارقام ثم 2 رقم و هكدا و توضع هكدا
Edit1.text:= 1111
Edit2.text:= 222
Edit3.text:= 33333
Edit4.text:= 44

[maosalah]

السلام عليكم
حاول مع الدالة Copy

كود :

http://www.delphibasics.co.uk/RTL.asp?Name=Copy

[M_Mori2010]

اخي تفضل هذا مثال بالتوفيق