Выключение монитора средствами Delphi:

Потушить монитор
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MO NITORPOWER,0);
Зажечь монитор
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MO NITORPOWER,-1);