Действия в WMQueryEndSession (Delphi)

[Shouldercannon]

Есть процедура, которая завершает работу программы

procedure TFormMain.PMMExitClick(Sender: TObject);
begin
  // Сохранение данных и прочее
  Application.Terminate;
end;

Если я сделаю так при завершении работы Windows

procedure TFormMain.WMQueryEndSession(var Message: TMessage);
begin
  PMMExit.OnClick(Self);
end;

при этом не отсылая результат Windows

Message.Result := 1;

это будет считаться верным?

[rpy3uH]

система посылает программе WM_QUERYENDSESSION, а программа в ответ закрывается. ничего особенного