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

[[Lepe]]

Empezado por 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

Ojito con ese código amigo mio. El array empieza en el índice 1, mientras que el memo empieza en el índice cero, por tanto, la primera vez que entra en el bucle:
i = 0
area[0] := memo.lines[0]
eso debería dar un error de esos que asustan , ya que estas escribiendo en "area" en un índice que no existe.

La solución más fácil : var area:array[0..15] of string;

Código Delphi [-]
....
 edit1.Clear;
 edit1.Text:=area[0];
end;

Ahora si funciona como esperabas, ¿verdad?

Saludos