Если вам необходимо отключить комбинацию клавиш 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; 