Подскажите в чём ошибка

[nolz]

procedure TForm1.Button1Click(Sender: TObject);
var
   f:textfile;
   st,s:string; n:integer;
begin
  listbox2.Items.Clear;
  listbox1.Items.Clear;
  try
   n:=combobox1.ItemIndex; //номер выделенной строки
//////////Ф.И.О.////////////////
   listbox2.Items.Add(combobox1.Items.Strings[n]);
//////////Год рождения////////////////
   AssignFile(F,'data\god.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\god.qxt');
   st:='Год рождения: '+listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
/////////// Адрес////////////////
   AssignFile(F,'data\home.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\home.qxt');
   st:='Проживает по адресу: '+listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
/////////// Факультет////////////////
   AssignFile(F,'data\fac.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\fac.qxt');
   st:=listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
///////////Специальность////////////////
   AssignFile(F,'data\spec.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\spec.qxt');
   st:='Специальность: '+listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
///////////Курс////////////////
   AssignFile(F,'data\kurs.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\kurs.qxt');
   st:='Куср: '+listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
///////////Среднее образование////////////////
   AssignFile(F,'data\zaved.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\zaved.qxt');
   st:='Среднее образование получено: '+listbox1.Items.Strings[n];
   Listbox2.Items.Add(st);
   closefile(f);
  except
    showmessage('С данным студентом, что то не так');
  end;

При нажатии на эту кнопку в листбокс2 выводится различные сообщения, всё работает нормально.

после нажатие на кнопку которая успешно добавляет добавляет новые данные в текстовые документы

procedure TForm2.Button1Click(Sender: TObject);
var
 f: TStrings;
 s: string;
begin
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\fio.qxt');
  s := edit1.Text +' '+ edit2.Text + ' ' + edit3.Text;
  
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\fio.qxt');
 finally
  f.Free;
 end;


 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\god.qxt');
  s := edit4.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\god.qxt');
 finally
  f.Free;
 end;


 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\home.qxt');
  s := edit5.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\home.qxt');
 finally
  f.Free;
 end;
///////////////////
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\fac.qxt');
  s := edit6.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\fac.qxt');
 finally
  f.Free;
 end;
//////////////////////
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\spec.qxt');
  s := edit7.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\spec.qxt');
 finally
  f.Free;
 end;
////////////////////////////
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\kurs.qxt');
  s := edit8.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\kurs.qxt');
 finally
  f.Free;
 end;
////////////////////////
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\zaved.qxt');
  s := edit9.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\zaved.qxt');
 finally
  f.Free;
 end;

   form2.Close;
end;

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

[BOBAH13]

А вот то что написан в том окошке "ошибки" Вы прочитать видимо не удосужились ? а именно

List index out of bounds (20)

[.Phoenix]

Если ты не понял в чем ошибка "Индекс списка вне предела". Т.е. у тебя что-то с параметром n не то.

[nolz]

Всё я прочитал, и всё понял, посмотрите внимательно на первый код, такой ошибки не должно возникать, я много раз всё перепроверил, с параметром n всё нормально.

[mihali4]

Молодца!
А теперь кидаем бряку на счетчик цикла и проверяем, не выходит ли он за пределы...
И убеждаемся - выходит...
Кстати, это уже упомянутое "N".

[nolz]

Но каким образом, оно может выходить если N это номер выделенной строки, и нигде не изменяется

[Kotofff]

Сообщение от nolz

Но каким образом, оно может выходить если N это номер выделенной строки, и нигде не изменяется

После запуска программы если программно или вручную не установить номер выбранного элемента (выбрать что-нибудь в списке) в твоем combobox1, то он будет равен -1 и соответственно при выполнении кода

st:='Год рождения: '+listbox1.Items.Strings[n];

Делфи заткнется именно на такой ошибке, т.к. в Strings элемента под номером -1 не может быть.

[nolz]

у меня N програмно вводится

n:=combobox1.ItemIndex;

Если бы проблемы была в этом то ошибка вылазила сразу же, а она выходит только после добавление нового элемента
Я сколько просматривал, так и не смог заметить почему что то случается с N

[evg_m]

  listbox2.Items.Clear;
  listbox1.Items.Clear;
  try
   n:=combobox1.ItemIndex; //номер выделенной строки
//////////Ф.И.О.////////////////
   listbox2.Items.Add(combobox1.Items.Strings[n]);
//////////Год рождения////////////////
   AssignFile(F,'data\god.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\god.qxt');
   st:='Год рождения: '+listbox1.Items.Strings[n];

обращение к пустому списку

[nolz]

он не пустой

listbox2.Items.Clear;
  listbox1.Items.Clear;
  try
   n:=combobox1.ItemIndex; //номер выделенной строки
//////////Ф.И.О.////////////////
   listbox2.Items.Add(combobox1.Items.Strings[n]);
//////////Год рождения////////////////
   AssignFile(F,'data\god.qxt');
   reset(f,s);
   listbox1.Items.LoadFromFile('data\god.qxt');
   st:='Год рождения: '+listbox1.Items.Strings[n];