Interceptar Desligamento do Windows

Ola galera,

Estou com o seguinte problema na minha aplicacao, quando tento desligar o micro, a minha aplicacao nao esta passando pela funcao abaixo:

procedure TfrmPrincipal.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
if MessageDlg(´O Windows deseja desligar agora, Permitir?´,
mtConfirmation, [mbYes,mbNo], 0)=mrNo then
Msg.Result:=0
else
Msg.Result:=1;
end;

A minha aplicacao acaba nao permitindo o desligamento do windows.


Fabio