Для обнаружения и предотвращения выключения компьютера я использую очень простую программу. Он имеет только одну форму и одну частную процедуру, как показано ниже:

TForm3 = class(TForm)
private
  procedure WMQueryEndSession(var Msg : TWMQueryEndSession) ;
         message WM_QueryEndSession;
end;

и реализация

procedure TForm3.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  Msg.Result := 0; //so I don't want to shutdown while my program is running
end;

Я скомпилировал его Delphi 5 и Delphi 2010. Оба они обнаруживают выключение. Но когда я скомпилировал в Delphi 2010; после предотвращения выключения моя программа закрывается. (ПК не выключается)

Как получить одинаковый результат от них обоих?