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