Hardware Delphi

Title: Set monitor into standby mode
To place a monitor into standby mode use WM_SYSCOMMAND message:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2);
end;