Buenas,
En XP no anda estas líneas?:
Código Delphi
[-]
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1);
...
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);
Que yo sepa la API (Esta u otra) si sigue controlando el monitor, pero nunca probé nada sobre XP.
Saludos!