Порядок вывода вопросов из бд

[RibSlicer]

Делаю тест где вопросы берутся из бд Access. Сделал сперва по 6 вопросах во всех таблицах. Все ок. Но когда теперь добавляю например пару новых в самой бд все показывается как надо, а в программе начинает выводить с новых вопросов а не с первого. Например сперва 7 8 1 2 3 4 5 6. вместо что бы 1 2 3 4 5 6 7 8. Где копать?

procedure TForm4.Button2Click(Sender: TObject);
begin
 
if (NameStudentEdit.Text='')or(GroupEdit.Text='')or(ComboBox1.Text='') then
begin
ShowMessage('Все поля должны быть заполнены!');
exit;
end;
  if(ComboBox1.ItemIndex <> -1) then begin
    QCount:= 0;
    with ADOTable1 do begin
      Active:= false;
      TableName:= 'Глава '+ComboBox1.Text;
      Active:= True;
      First;
      TrueCount:= 0;
      end;
    Quest;
    Button1.Enabled:= True;
    NameStudent:=NameStudentEdit.Text;
    Group:=GroupEdit.Text;
    end;
end;
 
procedure TForm4.Quest;
begin
    with ADOTable1 do begin
      Edit1.Text:= FieldByName('Вопрос').AsString;
      Edit2.Text:= FieldByName('Ответ А').AsString;
      Edit3.Text:= FieldByName('Ответ Б').AsString;
      Edit4.Text:= FieldByName('Ответ С').AsString;
      TrueAnswer:= FieldByName('Правильный ответ').AsString;
      RadioButton1.Checked:= false;
      RadioButton2.Checked:= false;
      RadioButton3.Checked:= false;
      end;
end;

[Utkin]

Где копать?

Ввести еще одно поле (если из имеющихся нет нужного) под этим самые номера и сортировать при выборке данных.

[RibSlicer]

Ну в принципе как раз есть первое поле "Номер вопроса" где и идут номера. А примера нету? А то без DBGrid Даже не знаю как сортировать тут.