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

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

 

Memo2.Lines.Assign(Memo1.Lines);

 

Memo2.Lines.AddStrings(Memo1.Lines)

 

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

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