выключение компа

надо что бы по заданому времени компьютер прикратил действия тоесть выключился например в в edit забивает часы 1час,работы после этого комп должен сам выключится,напишите код пожалуйста

 

Code:

ShellExecute(0, nil,'shutdown','-s -t 00','', SW_SHOWNORMAL);