KeyDown - Problem

[freak4fun]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageBox(0, 'Wirklich beenden', 'Beenden?', MB_YESNO) = ID_YES;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if((ssAlt in Shift) and (ssCtrl in Shift) and (Key = VK_F4))then
    begin
      ShowMessage('Alt Ctrl + + F4');
    end;
end;