升级到Delphi2010的问题，关于WM_QueryEndSession

procedure TForm1.QueryEndSession(var Msg:TMessage);
begin
　Msg.Result:=0;
end;
这段代码在Delphi2007以前运行，可以阻止系统关机，并且程序自身不会被关闭，但升级到2010后，可以阻止关机，但自身会被结束掉，为什么？怎么解决这个问题？