[amezeta32]

Saludos a todos!!!

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
edit1.Clear;
edit1.Text:=memo1.Lines.Strings[i];//prueba de esta forma
end;