Что сделано:
В var добавил переменную:
QuestionText4: array [0..max] of string;В procedure TForm1.LoadQuestion:
AnswerGroup.Items.Add(QuestionText4[index]); QuestionText4: array [0..max] of string;AnswerGroup.Items.Add(QuestionText4[index]);