Ativar a proteção de tela do Windows no Delphi

Inclua na seção uses: Windows

{ Ativa a proteção de tela do Windows, 
  se estiver configurada. }



SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);