Таймер

[Stanislav]

Доброй ночи..
Столкнулься с такой проблемой...
Предположим имееться 2 таймера изначально их свойство false
Нажатием кнопки делаю таймер1 true вторая кнопка тоже включает 2 таймер. так вот как зделать так чтоб пока таймер1 не отроботал (т.е после 5 сек стоит timer1.enable:=false
не было возможности включить второй таймер если даже он получил команду timer2.enable:=true;

[dron-s]

if not Timer1.Enable then
//...
?

[Романнн]

procedure TForm5.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=progressbar1 .Position+1;
i:=i+1;
if i=500 then timer2.Enabled:=not timer2.Enabled;
end;

procedure TForm5.Timer2Timer(Sender: TObject);
begin
progressbar2.Position:=progressbar2 .Position+1;
end;

такое подойдет??

[Романнн]

п.с.: i дожидается 500,так как таймер установлен на 10 мс....