Переменные не хотят переприсаиваться (Delphi)

[Vampire_2008]

Здравствуйте. У меня в конкретном месте кода переменные отазываются переприсваиваться.
Вот это место:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 iter: integer;
 quake:boolean;
label
 starcraft;
begin
time[1]:=combobox1.ItemIndex;
time[2]:=combobox2.ItemIndex;
time[3]:=combobox3.ItemIndex;
time[4]:=combobox4.ItemIndex;
time[5]:=combobox5.ItemIndex;

Переменная time отвечает за состояния триггеров, она оъявлена в разделе interface. При помощи combobox я задаю нужное мне состояние триггеров. (ItemIndex совпадают с нужным значением) Но переменная time отказывается присвоить эти значения и использует значения "00000".
Потом в коде этой процедуры time присваивает новые значения триггеров. И с этим проблем не возникает. И при повторном запуске этой процедуры он опять отказывается присвоить значения из combobox и использует последние значения.

Не понимаю в чём дело. Похожий код я использовал в другой работе, но там всё работало.
Работаю в Delphi 2010

[ex.cluz]

А какой тип имеет Time?

[Vampire_2008]

time: array [1..6] of integer;

[ex.cluz]

В комбобоксах точно выбраны Item'ы?

И почему присвоение идет со второго элемента массива?

[Vampire_2008]

Точно выбраны. 11000 начально состояние.
С 1-ого идёт присвоение. У меня счёт идёт с 1, а не с 0.

Если надо я могу скинуть написанную программу.

[Serge_Bliznykov]

Если надо я могу скинуть написанную программу.

Исходники проекта запакуйте и выложите архив сюда, на форум. Тогда легче будет понять, где Вы ошиблись...

[Vampire_2008]

Вот.
Счётчик.rar

[Serge_Bliznykov]

чуть ниже приведённого Вами кода, в той же
procedure TForm1.Button1Click(Sender: TObject)

есть такой код:

for I := 1 to 5 do
 time[i]:=tplus[i];

ещё вопросы есть?!

[Vampire_2008]

Эта часть кода работает как надо. Но та часть кода, которая отвечает за считывание переменных из ComboBox не работает. Начальное состояние триггеров 3 ("11000"), после него должно идти состояние 2 ("01000"), а не 0 ("00000"). Можете попробовать установить своё начальное состояние, программа в любом случае выдаст следующее состояние 0 ("00000") (при условии, что вы перезапустили программу, а если просто нажали "Очистка", то он продолжит работать с последнего состояния, а не с установленного вами).

[Serge_Bliznykov]

да у Вас в логике чёрт ногу сломит..

запускаем программу. ничего не меняя,
нажимаем на кнопку "Активация" (button1 - кстати, на будущее - имена компонентам лучше давать осмысленные!),
массив time после после блока присвоений значений из combobox станет:
time (1, 1, 0, 0, 0, 0)
проходим пошагово:
if time[1]=0 then - ЛОЖЬ, попадаем на else
...
tplus[1]:=0;
quake:=false;

дальше, везде проверка на if quake=true then
поэтому внутрь остальных веток не заходит.
в результате, в момент выполнения кода:
for I := 1 to 5 do
time[i]:=tplus[i];
массив tplus имеет значение (0, 0, 0, 0, 0)
что и переносится в массив time
получаем "00000"

ещё вопросы?