Выход из программы при завершении работы windows

[Ericnex]

Есть программа на Delphi XE. При старте программа сворачивается в трей (используется встроенный компонент TrayIcon). Как сделать чтобы при завершении работы Windows или при выходе из системы программа перехватывала эти события и выключалась? Если возможно нужны примеры кода.

Код сворачивания в трей:

 DM.TrayIcon1.Visible := True;
  DM.TrayIcon1.Hint := 'Журнал заявок';
  // Убираем с панели задач
  ShowWindow(Handle, SW_HIDE); // Скрываем программу
  ShowWindow(Application.Handle, SW_HIDE); // Скрываем кнопку с TaskBar'а
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));

Пробовал делать вот так, но не работает:

 procedure WMQueryEndSession(var Message: TWMQueryEndSession);
      message WM_QUERYENDSESSION;

procedure TForm6.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  lCanClose := True;
  inherited;
end;

procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := lCanClose;
  if CanClose then
  begin
    DM.TrayIcon1.Visible := false;
    Application.Terminate;
  end;
end;

[Аватар]

А так:

procedure TForm6.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  Close;
end;

[Shouldercannon]

Пример на Delphi XE 10.1 Berlin