KeyDown - Problem

[JB-1990]

Hey leuz,
hab da ein Problem mit diesem OnKeyDown.
Es sieht so aus, dass wenn z.B. alt + f4 gedrückt wird es nicht geht (inkompatible typen)
Ich will mein Programm dazu bringen, dass es eine Showmessage bringt, wenn alt + f4 gedrückt wird und es trotzdem am leben bleibt.

KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); das is ja soweit ganz klar aber:

 if ( ssAlt in Shift ) and ( Key = VK_F4 ) tthen Showmessage:='Schade.'; will irgendwie net, der schließt mir das Programm ohne das auszuführen hab schon einiges Probiert, wenn ich 'ctrl' noch dazu setze also

 if ( Shift+ [ssctrl ,ssAlt] = Shift ) and ( Key = VK_F4 ) tthen Showmessage:='Schade.'; klappt das prima, aber mit alt+f4 ni -.-
hat jemand nen Plan wie ich das machen kann?
THX