delphi 如何屏蔽Alt+F4

procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;

procedure tform1.WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam <> SC_CLOSE then
inherited;
end;