升级到Delphi2010的问题，关于WM_QueryEndSession

Delphi(Pascal) code

procedure TForm1.QueryEndSession(var Msg:TMessage);begin　Msg.Result:=0;end;

这段代码在Delphi2007以前运行，可以阻止系统关机，并且程序自身不会被关闭，但升级到2010后，可以阻止关机，但自身会被结束掉，为什么？怎么解决这个问题？

[解决办法]
自身被结束掉？
你确定其他的环境都没变么？比如杀毒软件，防火墙之类的