Якщо вам необхідно відключити комбінацію клавіш Alt+F4, щоб користувач не міг закрити вікно програми, можна використовувати наступний код:
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true; //це для того, щоб подія натискання кнопки передавалася не тільки елементу управління у фокусі, а насамперед формі
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// вимикаємо Alt+F4 та закриття вікна через хрестик
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;