Code:
To turn on:

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

To turn off: 

Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,-1);