ok mira probe hacer esto ahorita
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
area[i]:=memo1.Lines[i];
end;
edit1.Clear;
edit1.Text:=area[1];
end;
segun yo me tendria que haber insertado el texto de la linea 1 en el edit, pero no fue asi