Ладно...ты не правильно понял!
В Delphi, во вкладке System есть картинка, на котррой нарисованы часы. нажимаешь одни раз на нее, а потом в любое метсто на форме. на форме появится такой же рисунок(компонент) как из вкладки system. на него нажимешь два раза левой кнопкой мыши и пишешь то, то я тебе написал!
В свойствах Timer'a ставишь enabled:=false и при нажатии на кнопку(в процедуре) пишешь следующее:
Код:
Timer1.enabled:true;
//после чего пишешь все "запреты" на использование теста!