Comando API Delphi para uso em Win7! - Desligar monitor no Windows 7

SendMessage(Application.Handle, WM_SYSCOMMAND,          SC_MONITORPOWER, 2);