Как запустить текущий ScreenSaver

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