wygaszacz i tray

Mam taki kod:

procedure TForm1.WMSYSCommand(var M : TMessage);

begin

if (M.WParam and $fff0) = SC_SCREENSAVE then
if (M.wParam and $fff0) = SC_MONITORPOWER then

end;

lecz po minimalizacji aplikacji bądz wrzuceniu do traya nie...
Zależy mi na tray bo aplikacja ma blokować wygaszacz...

pewnie jesli okno jest nieaktywne/niewidoczne to komunikat do niego nie dociera.
poczytaj o hookach.