如何样在任务态栏关闭程序的时候有提示

怎么样在任务态栏关闭程序的时候有提示?
我用   delphi   写的软件点击右上角的关闭按钮时会执行   FormCloseQuery   里面的语句,   但是当我在任务态栏里面关闭程序的时候就不会执行   FormCloseQuery   里面的语句  
    请问各位高手有什么办法解决这个问题?

[解决办法]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
MessageBox(Handle, 'hello, ningensoft ', 'ningensoft ', MB_OK);
CanClose:= True;
end;

//我这样写，除了在任务管理器中直接结束进程外，都可以弹出该对话框啊！
[解决办法]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(Handle, 'Notice,close window ', 'notice ', MB_OKcancel)=1 then
CanClose:= True
else canclose:=false;
end;