Как сделать чтобы программа не закрывалась при нажатии клавиш alt+f4 (Delphi)

[zig1]

Подскажите кто знает. Буду благодарен.

[Sparkman]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caNone;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Application.Terminate;
end;