Már amelyik monitoron van ilyen funkció

Monitor kikapcsolása:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, 1);
end;

Monitor bekapcsolása:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, 0);
end;

Megjegyzés:
Persze ez a megoldás a képernyőkímélő meghívása(még akkor is, ha nincs a gépeden ez a funkció
bekapcsolva), és ebből következik, hogy egér-billentyü változásokra egyszerre bekapcsol a monitorod.