problem s procedurou v Delphi

OnKeyDown
Spustí se, když budete držet stisknuté tlačítko klávesnice. Jsou zde důležité proměnné v závorce:
Key - tlačítko, které je zmáčknuto (získáte číslo tlačítka - např.: Enter je 13, Esc je 27...)
Shift - zjistí, zda je tlačítko stisknuto speciálně. Typy:
  ssShift - je stisknutý Shift
  ssAlt - je stisknutý Alt
  ssCtrl - je stisknutý Ctrl
  ssLeft - je stisknuté levé tlačítko myši
  ssRight - je stisknuté pravé tlačítko myši
  ssMiddle - je stisknuté prostřední tlačítko myši
  ssDouble - bylo dvakrát kliknuto na myš
P.S.: Pozor! U Shiftu ze zjišťuje typ jiným způsobem než jinde:
if ssShift in Shift then nebo
if not(ssAlt in Shift) then
Pokud je ssShift v Shift (může toho totiž být zmáčknuto více), nebo to druhé: Pokud není ssAlt v Shift!

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Close;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (shift=ssCtrl) and (chr(key)='B') then Close;
end;