(Delphi) Служба не "отпускает" explorer.exe

[Air]

Долблюсь уже неделю, но явно что-то не так делаю.
Прошу совета.
___
есть служба мониторинга, единственное средство управления - это иконка в трее.
Не исправность заключается в том, что при любом действии завершении работы пользователя (просто пользователя или админа), не завершается процесс explorer.exe
После нескольких тестов, я склоняюсь к тому, что ресурс иконки не даёт завершиться процессу.
Пробовал отлавливать сообщения системы:

procedure OnQueryEndSession(var Msg: TMessage);
message WM_QUERYENDSESSION;
procedure OnEndSession(var Msg: TMessage);
message WM_ENDSESSION;

но проблема, служба на них не реагирует, простой ехе - да, а службе, как будто не поступают эти сообщения.
___
Нужен совет либо по поводу сообщений в системе, на которые отреагировал бы сервис, либо ... придётся просто написать hook?

[Air]

На счёт хуков, что-то я не нашёл ни одного типа, который бы отлавливал сообщения завершения работы Windows.

__________
Ура! заработала.

причиной стало то, что команды были записаны в модуле самой службы, а сейчас я их поместил на форму и всё работает.
Форма ловит сообщение системы и даёт команду на выгрузку иконки.