Проблема в делфи. Непонятная ошибка... ComboBox

[Katus]

Не работает переход с N-го вопроса на 1й при нажатии на кнопку. вот код кнопки:

procedure TForm1.KeyOkayClick(Sender: TObject);
var
  k, i, t: byte;
begin
  Form1.ChangeQ.ItemIndex:=Form1.ChangeQ.ItemIndex+1;
  if Form1.ChangeQ.ItemIndex=n-1 then
    Form1.ChangeQ.ItemIndex:=0;
  k:=Form1.ChangeQ.ItemIndex+1;
        Form1.Question.Caption:=Tester.Q[k];
        for i:=1 to 4 do
        case i of
          1: begin
               Answer1.Caption:=Tester.A[k,i];
               AnswerKey1.Checked:=Tester.logicres[v, k, i];
             end;
          2: begin
               Answer2.Caption:=Tester.A[k,i];
               AnswerKey2.Checked:=Tester.logicres[v, k, i];
             end;
          3: begin
               Answer3.Caption:=Tester.A[k,i];
               AnswerKey3.Checked:=Tester.logicres[v, k, i];
             end;
          4: begin
               Answer4.Caption:=Tester.A[k,i];
               AnswerKey4.Checked:=Tester.logicres[v, k, i];
             end;
        end;
end;

[3D Hunter]

procedure TForm1.KeyOkayClick(Sender: TObject);
var
  k, i, t: byte;
  ii,ic:byte;
begin
  ic:=Form1.ChangeQ.items.Count;
  ii:=Form1.ChangeQ.ItemIndex;
  inc(ii);
  if ii=ic then ii:=0;
  Form1.ChangeQ.ItemIndex:=ii;
        k:=Form1.ChangeQ.ItemIndex+1;
        Form1.Question.Caption:=Tester.Q[k];
        for i:=1 to 4 do
        case i of
          1: begin
               Answer1.Caption:=Tester.A[k,i];
               AnswerKey1.Checked:=Tester.logicres[v, k, i];
             end;
          2: begin
               Answer2.Caption:=Tester.A[k,i];
               AnswerKey2.Checked:=Tester.logicres[v, k, i];
             end;
          3: begin
               Answer3.Caption:=Tester.A[k,i];
               AnswerKey3.Checked:=Tester.logicres[v, k, i];
             end;
          4: begin
               Answer4.Caption:=Tester.A[k,i];
               AnswerKey4.Checked:=Tester.logicres[v, k, i];
             end;
        end;

[Katus]

Спасибо большое!...

[Аватар]

А вы точно уверены, что n равно к-ву итемов в ChangeQ? Может лучше так проверку сделать

if ChangeQ.ItemIndex=ChangeQ.Items.Count-1 
  then ChangeQ.ItemIndex:=0
  else ChangeQ.ItemIndex:=ChangeQ.ItemIndex+1;

[3D Hunter]

Аватар, я это сделал через переменные, см. предыдущий пост

[Аватар]

Да я и не видел ответа, когда сам начал отвечать. Немного отвлекся и получилось почти то же самое