怎么控制变量定时增值

如何控制变量定时增值？
有一段程序:
｛
  int   i;

  ...
  ｝
想让i值从1开始每小时加1，并且当i＝24后，下一小时又回到i＝1，该如何实现～，可以用Ttimer控制吗，或者别的简单方法？

[解决办法]
设置Timer控件的时间为1小时 3600秒*1000
并定义i = 0;
在ontime时间里写
i++;
if(i == 24)
i = 0;
[解决办法]
用Ttimer控制
并设置它的Timer1-> Interval = 3600000;
i = 1要是全局变量或静态变量
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(i == 24)
{
i = 1;
}
else
{
i++;
}
}