Tastaturabfrage funzt net

[Spurius]

Hallo,
bei mir funzt dieser Code nicht:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
   vk_up:  showmessage('test');
 end;
end;

Weiss jemand woran das liegt? Der Code müsste eigentlich stimmen.
Gruß
Spurius