怎么让程序不能关闭

如何让程序不能关闭？
我想写一个锁屏工具，但alt+F4就可以将程序关闭掉了   这个问题如何解决呢？
[解决办法]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin//Form的OnCloseQuery事件
  CanClose := False
end;