Aufruf über F9

[Grolle]

Ich möchte über die F9 Taste einen Beenden Dialog aufrufen.
Der will aber nicht. Es tut sich gar nix.
Hier der Code:

Code:

procedure TForm1.BitBtn4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var CanClose: Boolean;
begin
  if key = VK_F9 then
  begin
    if MessageDlg('    Program wirklich beenden?    ',
                mtConfirmation,
                [mbYes,mbNo],
                0)=mrNo then
    else
    close;
  end;
end;

Grolle