Takže dost teorie,

zde máme náš zdrojový kód:
procedure Uspi;
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,0);
end;

procedure Probud;
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,-1);
end;
Důrazně vás však musím upozornit na to, že musíte ve svém programu též ošetřit probuzení monitoru, protože pohnutí myší nebo stisk klávesy jako u běžného uspání nefunguje a vám by pravděpodobně nezbylo nic jiného, než tlačítko reset (a nebo naslepo restartovat počítač), protože monitor by se už nepodařilo probudit. Ideální a standardní je nastavit probuzení monitoru na již zmiňované pohnutí myší nebo stisk libovolné klávesy.