Impedir o fechamento da tela com ALT+F4

Essa dica é sempre útil para nossos sistemas

Em cada formulário do sistema faça os seguintes passos:

1º - Mude a propriedade KeyPreview do form para True

2º - Coloque o seguinte código no evento OnKeyDown :

If ((ssAlt in Shift) And (Key = VK_F4)) Then

Key := 0;