Модернизация кода по выключению компьютера

[01001]

Здравствуйте многоуважаемые программисты. У меня возникло желание написать программу которая бы выключала компьютер по времени которое задано в SpinEdit. У меня есть код выключения компьютера:
-----------------------------------------------------------------

var
ph: THandle;
tp, prevst: TTokenPrivileges;
rl: DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, ph);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := 2;
AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
---------------------------------------------------------------
но я не знаю как его можно изменить чтобы связать с компонентом SpinEdit, таймером. Пожайлуста предложите что-то или выложите исходник, очень надо!!!

[zetrix]

1) ставим таймер и кнопку. (таймер по умолчанию выключен, интервал 1000)
2) при нажатии на кнопку таймер включаем, и увеличиваем некую глобальную переменную (допустим Х) на 1 (изначально она равно 0). В таймере проверяем если переменная равна значению в SpinEdit, то выключаем.
Желательно значение из SpinEdit поместить в некую переменную (допустим Р), т.к. во время выполнения проги юзер может поменять значение, и может случится что комп никогда не выключится.

(в теории, на практике рано или поздно произойдёт переполнение переменной и всё начнётся с начала - это так, замечание)

кстати значение в SpinEdit - время в секундах до выключения.