Нормально все добавляется четвертый вариант, сейчас проверил, в итоге 9 правильных ответов из 9, и 9 неправильных (в случае если отвечать добавленным четвертым вариантом.
Что сделано:
В var добавил переменную:
QuestionText4: array [0..max] of string;В procedure TForm1.LoadQuestion:
AnswerGroup.Items.Add(QuestionText4[index]);В procedure TForm1.LoadTest:
QuestionText4[h]:=s.Strings[j+5];
AnswerQuestion[h]:=strtoint(s.Strings[j+6]); // исправил номер ответа, было [j+5]В архиве правленые исходники, но сразу предупреждаю, у меня RAD XE 5, потому не знаю, как откроются исходники в прошлых версиях делфи.