В uses добавляем ExtCtrls

Вводим глобальную пременную 

i:integer;

2 раза щелкаем по форме и прописываем туда:

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1);
end;

идаем на форму таймер и прописываем туда:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i=5 then
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);
end;

Запускаем программу и экран выключается на 5 секунд(как это указанно в коде) время можно изменить, задав значание i нужного времени(if i=5 then)