SendMessage(Form1.handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);