Zeilenweise von Memo1 in Memo2 schreiben

[s-off]

Delphi-Quellcode:

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