请问以下功能如何实现：
按一下Button1，使得Edit1中的第一行文字在Edit2中显示，Edit1中第二行文字在Edit3中显示，第三行在Edit4中显示

Edit控件有行的概念吗？或对Text逐个字符进行判断，通过#13 回车 #10 换行来做分段标识，截取Text
把问题说明白点

亲，edit是没有换行的哦，你改用memo吧，可以这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
   edit1.Text :=memo1.Lines[0];  //0为memo的第一行，以此类推
   edit2.Text:=memo1.Lines[1];
   edit3.Text:=memo1.Lines[2];
end;