كيف دمج محتوى مكونين Memo في مكون Memo ثالث ؟

[محمدعلى]

السلام عليكم

كيف دمج محتوى مكونين Memo في مكون Memo ثالث ؟
يوجد فى الكود 3 Memo  بحيث
Memo 1+Memo 2= Memo 3
يكون بهذا الشكل  وهذا المطلوب
1111111111
aaaaaaaaaa
2222222222
bbbbbbbbbb
3333333333
cccccccccc
4444444444
dddddddddd
5555555555
eeeeeeeeee
الخطاء هذا عند الضغط على الزر
1111111111
2222222222
3333333333
4444444444
5555555555
aaaaaaaaaaa
bbbbbbbbbbb
cccccccccc
dddddddddd
eeeeeeeeee
محاولتي بالمرفق
تحياتى لكم

[justnick]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
 i : Integer;
begin
Memo3.Lines.Clear;
for I := 0 to Memo1.Lines.Count - 1 do
 begin
Memo3.Lines.Add(Memo1.Lines[i]);
Memo3.Lines.Add(Memo2.Lines[i]) ;
 end;
end; 


جرب هذا الكود

[محمدعلى]

بارك الله فيك اخى