[DelphiM0ZG]

Там на кнопке "Далее" нужно добавить код:

Код:

  STQutest.Caption:=IntToStr(i+1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=TrackBar1.Position+1;

А на кнопку "Начать" тест, нужно дописать код:

Код:

  STQutest.Caption:=IntToStr(1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=0;