Научите работать с таймером

[zmey31313]

Я пишу одну программу и чёт с таймером у меня не получается. Интервал там стоит 1000, таймер должен срабатывать через 3 минуты, а срабатывает через секунды 2, вот код:

begin  
inc(dsec);
 if dsec = 100 then
     dsec := 0;
     sec := sec + 1;
 if sec = 60 then
     sec :=0;
     min := min + 1;
 if min = 3 then
   begin
     Timer5.Enabled := False;
     CheckBox2.Checked := True;
   end;

Заранье спасибо...

[raxp]

вот это

min := min + 1;
if min = 1 then

про <begin> до не забываем, да и не min=1, а =3... и вообще, не проще-ли

inc(min);
if min* 3 > 3*60 then begin

[zmey31313]

Cпасибо, я чёт вот как до этого написан так с таймером работал, щас лучше вот как ты сказал:

inc(min);
if min* 3 > 3*60 then begin

всё сейчас норм работает.

[DeKot]

var count: integer; // объявляем глобально, чтобы  задать значение = 0
{ при интервале таймера 1000 (1 сек)  для 3 мин надо 180 циклов таймера}
procedure TForm1.Timer5Timer(Sender: TObject);
begin
  Inc(count);
  if count >= 180 then
  begin
    Form1.Timer5.Enabled:= false;
    count:= 0;
    CheckBox2.Checked := True;
  end;
end;