System Delphi

//Bir ekran koruyucu tanımlı olması gerekir..
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);