Timer 3 таймера

[Бриит]

procedure TForm5.Timer1Timer(Sender: TObject);  
begin
i:=i+1;
        case i  of
          1:
              Begin
              timer1.interval := 11000
              End;
          2:
              Begin
              timer1.interval := 3600000
              End;
          3:
              Begin
              Timer1.Enabled:=False;
              End;
end;
end;

procedure TForm5.Timer2Timer(Sender: TObject);
begin
i:=i+1;

            case i  of
              1:
                 Begin
                 timer2.interval := 10000;
                 End;
              2:
                 Begin
                 timer2.interval := 600000
                 End;
              3:
                 Begin
                 Timer2.Enabled:=False;
                 End;
end;
end;

procedure TForm5.Timer3Timer(Sender: TObject);
var k:Integer;
begin
k:=0;
k:=k+1;
case k  of
1: begin
    if (( Timer2.Enabled = False)and ( Timer1.Enabled = False)) then   Form5.UTim();
  end;
2:Begin
  k:=0;
End;
  end;
end;

procedure TForm5.UTim();
Begin
ind:=ind+1;
  if ind = ListBox1.Items.Count then
        Begin
          Memo1.Lines.Add('Таймеры отключены');
          Timer2.Enabled:=False;
          Timer1.Enabled:=False;
          Timer3.Enabled:=False;

        End
  else
        begin
                // Проверка 
        if ( ListBox1.Items.Strings[ind] = '1') then
                begin
                i:=0;
                Timer1.Enabled:=True;
                end;
                // Проверка 
        if ( ListBox1.Items.Strings[ind] = '2') then
                begin
                i:=0;
                Timer2.Enabled:=True;
                end;

        end;

End;

Ребят кто может подскажите почему таймеры отказываются работать если задать время более 5 мин происходит какойто глюк

вся суть 3 таймера, запускается 3й он работает постоянно, остальные запускает по условию.

1 и 2 таймер больше 1го раза не запускаются
if ( ListBox1.Items.Strings[ind] = '2') then
begin
i:=0;
Timer2.Enabled:=True;
end;
условие как то не срабатывает

[Dimasw]

все таймеры сразу включены? (при запуске приложения)

[Zer0]

для начала не понятно зачем проверка второго условия здесь
k:=0;
k:=k+1;
case k of
1: begin
if (( Timer2.Enabled = False)and ( Timer1.Enabled = False)) then Form5.UTim();
end;
2:Begin
k:=0;
End;

т.к. К всегда будет 1, в любом случае
и во вторых - если i у тебя глобальная, а скорее всего так и есть, для второго таймера введи другую переменную... а вообще лучше напиши что именно делаешь, а то непонятны немного цели

[Бриит]

Сообщение от Zer0

для начала не понятно зачем проверка второго условия здесь
k:=0;
k:=k+1;
case k of
1: begin
if (( Timer2.Enabled = False)and ( Timer1.Enabled = False)) then Form5.UTim();
end;
2:Begin
k:=0;
End;

т.к. К всегда будет 1, в любом случае
и во вторых - если i у тебя глобальная, а скорее всего так и есть, для второго таймера введи другую переменную... а вообще лучше напиши что именно делаешь, а то непонятны немного цели

я с тобой согласен это полный тупняк можно переделать его гораздо проще.
Сразу включается тока 3й таймер остальные должны включатся по очереди.
а пишу бота для браузерных игрушек