جهت turn off يك دكمه بر روي فرم قرار مي دهيم و در رخداد كليك آن دستور زير را تايپ مي كنيم .

ShellExecute(Handle, 'Open',PChar('shutdown.exe'), PChar('-s -c "HeHeHe - your about to get;(shutdown! :D"'), nil, SW_SHOW