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;