Нормально все добавляется четвертый вариант, сейчас проверил, в итоге 9 правильных ответов из 9, и 9 неправильных (в случае если отвечать добавленным четвертым вариантом.
Что сделано:
В var добавил переменную:
QuestionText4: array [0..max] of string;В procedure TForm1.LoadQuestion:
AnswerGroup.Items.Add(QuestionText4[index]);