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

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