نقل اسطر من memo1 الى memo2

[salah07230]

السلام عليكم
ممكن طريقة نسخ سطر وترك سطر من memo1 الى memo2
مثال عندي هذه الاسطرفي memo1
محمد
معتز بالله
اسلام
الياس
شمسو
احمد
سهيل
فيصل
.
.
.
القائمة طويلة....

بحيث انقل الى memo2 الاسطر
معتز بالله
الياس
احمد
فيصل
.
.
.
الى النهاية

يعني انقل سطر واترك سطرا بحيث السطر 
الذي نقلته يحذف من memo1
وشكرا

[مبرمج حر]

السلام عليكم

كود :

Var i :word; begin Memo2.Clear; for i:=0 to Memo1.Lines.Count-1 do if (i mod 2)=0 then Memo2.Lines.Add(Memo1.Lines[i]); end;

[صالح حمادي]

السلام عليكم
هذا هو الكود
بحيث 1 يمثل رقم السطر . مع العلم أن السطر الأول رقمه 0

كود :

Memo2.Lines.Add(memo1.Lines.Strings[1]);     memo1.Lines.Delete(1);

[salah07230]

شكرا لكما اخواي
مبرمج حر
و
صالح حمادي
على الرد السريع والاجابة الصحيحة