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

[ContraVeneno]

yo y mi bocota... dije puras mentiras porque tuve uno de esos momentos llamados "lapsus brutus"...

el problema es que me esta sucediendo muy seguido ultimamente...


en fin..
si no te insertó la linea 1

¿que fue lo que puso?

[douglas]

no hay pena contraveneno

mira ya pude pero suceque me lee todo el memo, pero necesito que me lea una linea primero y luego otra, te muestro el codigo

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.GetText;
end;

pero de esta manera me lee todo el memo, io necesito ordenarle que lo haga linea por linea.

[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;