SendMessage(Application->Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);