Делфи, вывести в файл правильные ответы

[Алексей_2012]

Здравствуйте, есть код, который проверяет количество отмеченных checklistbox строк, затем во втором цикле сравнивает этот элемент с ответами, который записан в массив anws

var k1: Integer;
  ii, jj: Integer;
  strka: string;

    for ii := 0 to CheckListBox1.Count - 1 do
    begin

      if CheckListBox1.Checked[ii] then
      begin

        for jj := 0 to Length(anws) - 1 do
        begin
          if (ii = anws[jj] - 1) then
          begin
            ts_one.Add('Вопрос №' + inttostr(num) + ': ' + Copy(qv, 9, Length(qv)) + ' - верно! +1 балл');
            inc(ball);
          end
          else
            ts_one.Add('Вопрос №' + inttostr(num) + ': ' + Copy(qv, 9, Length(qv)) + ' - не верно!');
             end;
           end
           else Continue;

      ts_one.Add('Вы ответили: ' + CheckListBox1.Items[ii]);
    end;

допустим есть такой список
ВОПРОС 1
вопрос 1 (не верный)
вопрос 2 (не верный)
вопрос 3 (верный)

ВОПРОС 2
вопрос 1 (не верный)
вопрос 2 (верный)
вопрос 3 (верный)
вопрос 4 (верный)

Т.е массив answ состоит сначала из одного элемента, потом удаляется, и состоит из трех элементов (это номера позиций)

цикл по чеклистбоксу будет состоять из двух итераций

Дак вот вопрос, как сделать так, чтоб программа определяла то, какие варианты ответа пользователь выбрал, а исходя из этого далее смотрела какие ответы правильные,

файл получился вот такой:

Вопрос №1: 2 - верно! +1 балл
Вы ответили: 3

Вопрос №2: 3 - верно! +1 балл
Вопрос №2: 3 - не верно!
Вопрос №2: 3 - не верно!
Вы ответили: 2
Вопрос №2: 3 - не верно!
Вопрос №2: 3 - верно! +1 балл
Вопрос №2: 3 - не верно!
Вы ответили: 3
Вопрос №2: 3 - не верно!
Вопрос №2: 3 - не верно!
Вопрос №2: 3 - верно! +1

а на второй итерации цикла аж 9 раз прокрутилось

[Алексей_2012]

Я уж для наглядностп begin oв лишних понатыкал. Всю ночь убил на эту фигню. были идеи использовать два массива, но это ничего бы не изменила. Есть какие-нибудь советы?

[Stilet]

А как ты CheckListBox1 заполняешь вопросами?

[Алексей_2012]

Из файла-стринглиста, в нем много строк, структура такая:
Вопрос1
3-варианты ответа
1 3-правильные
вариант1
...2
3...
Вопрос 2
И т.д.

Думаю это не суть, заполняется все правильно

[Stilet]

Да нет. Это как раз и суть.
Прикрепи сюда этот свой файл.