Вопрос о Memo

[wees]

Нужно из Memo1 построчно перенести все данные в Memo2. Понять не могу почему не работает
i:=0;
while i<> 10 do begin
Memo2.Lines:=Memo1.Lines; i:=i+1; end;

У кого есть соображения какие-то поделитесь плз.

 

[etc]

Memo2.Lines.Assign(Memo1.Lines);

 

[Poseidon]

Memo2.Lines.AddStrings(Memo1.Lines)

 

[BurcevD]

если построчно то так

Memo2.Lines.Clear;
For i:=0 to Memo1.Lines.Count-1 do
Memo2.Lines.Add(Memo1.Lines[i]);