Leer cada linea de un memo y como determinar si llego al final

[douglas]

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