Помогите, о великие знатоки Delphi

Я делаю вирус, и у меня возникла проблема, мне требуется сделать таймер на 4 часа, а по окончании этого времени компьютер должен выключатся. Вот то что у меня получилось (Отрывки кода)
procedure TForm1.Timer2Timer(Sender: TObject);
var alltime:integer;
var hur, min, sec:integer;
begin
alltime:=(hour*60+minutes)*60
dec alltime;
sec:=alltime mod 60;
min:=alltime div 60;
hur:=alltime div 60;
min:=alltime mod 60;
label 4.Text:=IntToSte(hur)+':'+IntToSte(min)+':'+IntToSte(sec);

+ я создал глобальную переменную var hours, minutes, seconds:integer;