Работа с TXT, что то не работает

[nolz]

AssignFile(F,'work.txt');
reset(f,s);
n:=listbox1.ItemIndex+1;
for i:=1 to n do
begin
edit1.Text:='';
readln(f,s);
edit1.Text:=s;
end;
Label6.Caption:=inttostr(n);
closefile(f);

компилирую, всё нгормально запускаю вылазиет ошибка и красным выделяется строка

readln(f,s);

, как исправить?

[Пепел Феникса]

а файл имеет n строк?

[nolz]

Пепел Феникса, количество строк файла <=n, где n -выделенная строка в listbox1

[Пепел Феникса]

однако я вижу ошибку тут...
пройдите пошагово и посмотрите при первом вызове чтения вылетает или не при первом?

[DeKot]

AssignFile(f,'work.txt');
Reset(f);//reset(f,s);
n:=listbox1.ItemIndex+1;
for i:=1 to n do
begin
edit1.Text:='';
readln(f,s);
edit1.Text:= edit1.Text + s + #13;
end;
Label6.Caption:=inttostr(n);
closefile(f);

Ну и, естественно надо объявит переменные:
var f: TextFile;
s: string;
И не очень понятна привязка чтения из файла к listbox1.ItemIndex+1;
Напрашивается цикл while not eof(f) do.

[nolz]

Пепел Феникса, ошибка вылазиет при первом шаге
Проверил всё должно работать, проверил и убедился что , в Listbox отсчёт идёт с 0, в текстовом документе с 1.

DeKot, поробовал нечего не изменилось вылазиет та же ошибка.

[DeKot]

Вот проект.Смотрите и доделывайте под себя.