It is very easy to force the Windows screensaver to activate. Simply send windows the right message: uses Windows;begin//.. SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0)end