[warner]

примерно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

//глобальные type TTest = Record  ask, v1, v2, v3, v4, vt: String; var  Test: array of TTest;  TNum, TrueCnt: Integer;  SL: TStringList;   //это туда где будешь загружать тест  SL.LoadFromFile('твой файл');  i:=0;  while i<sl.lines.count do   begin    SetLength(Test, Length(Test)-1);    with Test[Length(Test)-1] do begin    Ask:=SL[i];    V1:=SL[i+1];    V2:=SL[i+2];    V3:=SL[i+3];    V4:=SL[i+4];    VT:=SL[i+5];end;    i:=i+6;   end;  Label1.Caption:=Test[0].Ask;  RadioGroup1.Items.Clear;  RadioGroup1.Items.Add(Test[0].V1);  RadioGroup1.Items.Add(Test[0].V2);  RadioGroup1.Items.Add(Test[0].V3);  RadioGroup1.Items.Add(Test[0].V4);  Tnum:=0; //текущий вопрос  TrueCnt:=0; //верных ответов     //это кнопка СЛЕД. ВОПРОС  if RadioGroup1.Items[itemIndex]=Test[TNum].VT then inc(TrueCnt);  inc(TNum);  Label1.Caption:=Test[TNum].Ask;  RadioGroup1.Items.Clear;  RadioGroup1.Items.Add(Test[TNum].V1);  RadioGroup1.Items.Add(Test[TNum].V2);  RadioGroup1.Items.Add(Test[TNum].V3);  RadioGroup1.Items.Add(Test[TNum].V4);