TQuestion = record
  Text, Ans1, Ans2, Ans3, Ans4: string;
  RightAns: 1..4;
end;
...
QArray: array[1..10] of TQuestion;