[Delphi] ListView kolejny raz

Problem polega na tym że po tej procedurze z całego plik tekstowego wczytywana jest tylko pierwsza linia

procedure TForm1.odczyt1Click(Sender: TObject);
begin
lv:=ListView1.items.add;
assignfile(lista,'C:\Program Files\Loger\lista.txt');
reset(lista);
repeat
read(lista,data);
read(lista,dzielnik);
read(lista,czas);
read(lista,dzielnik2);
readln(lista,kto);
lv.Caption:=data;
lv.SubItems.Add(czas);
lv.SubItems.Add(kto);
until eof(lista);
closefile(lista);
end;

Dzięki za pomoc

procedure TForm1.odczyt1Click(Sender: TObject);
begin
 assignfile(lista,'C:\Program Files\Loger\lista.txt');
 reset(lista);
 repeat
  lv:=ListView1.items.add;
  read(lista,data);
  read(lista,dzielnik);
  read(lista,czas);
  read(lista,dzielnik2);
  readln(lista,kto);
  lv.Caption:=data;
  lv.SubItems.Add(czas);
  lv.SubItems.Add(kto);
 until eof(lista);
 closefile(lista);
end;