Работа с компонентом Tmemo.(Delphi)

[ThreeKilo]

Здравствуйте. Столкнулся вот с таким заданием:
На форме есть 2 Tmemo. В первом из них есть текст. Необходимо заполнить второй Tmemo первой половиной текста из первого мемо, затем добавить пробелы и заполнить вторую половину текста. Сможет кто-нибудь что-нибудь посоветовать?

[Mad_Cat]

S:=Memo1.text;
Memo2.text:=Copy(s,1,Length(s) div 2);
delete(s,1,Length(s) div 2);
Memo2.text:=Memo2.text+'                                               '+s;

[ThreeKilo]

Спасибо большое за помощь. Но я забыл уточнить. Текст выглядит как четверостишие. И в этом то и вся проблема)

[Mad_Cat]

Текст выглядит как четверостишие

for i:=0 to Memo1.Lines.count div 2 do
Memo2.lines.add(Memo1.lines[i]);
For i:=1 to 5 do
Memo2.lines.add(' ');
for i:=Memo1.Lines.count div 2 to Memo1.Lines.count -1 do
Memo2.lines.add(Memo1.lines[i]);