Hola maxzama.
Este código enviará la línea actual al Edit correspondiente:
Código Delphi
[-]
procedure TForm1.Memo1Click(Sender: TObject);
var
Linea: Integer;
begin
Linea:= Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
case Linea of
0: Edit1.Text:= Memo1.Lines[Linea]; 1: Edit2.Text:= Memo1.Lines[Linea]; 2: Edit3.Text:= Memo1.Lines[Linea]; end;
end;
Y si queres pasar la tres líneas de una sola vez:
Código Delphi
[-]
procedure TForm1.btnPasarLas3Click(Sender: TObject);
begin
Edit1.Text:= Memo1.Lines[0]; Edit2.Text:= Memo1.Lines[1]; Edit3.Text:= Memo1.Lines[2]; end;
Saludos.