[warner]

примерно так

Код:

//глобальные
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);