procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2);
end;

이론 너무 간단하군... ㅠㅠa