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

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

Другое по теме:

• Хранитель экрана
• Устанавливаем свой WallPaper для Windows
• ScreenMate