Переключиться в режим StandBy

procedure
 TForm1.Button1Click(Sender: TObject);
 begin

   SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 1);
 end
;

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

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки