Listbox übernimmt Keydown das für Form gedacht war...

[Super_Chemiker]

Hi, ich hab schon wieder ein Problem:
Ein Form soll auf KeyDown reagieren:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Play) then begin
  if (key = (VK_ESCAPE)) then
     begin
       //code
     end
     else if (key = (VK_DOWN)) then
     begin
       //code
     end
     else if (key = (VK_UP)) then
     begin
       //code
     end
     else if (key = (VK_LEFT)) then
     begin
       //code
     end
     else if (key = (VK_RIGHT)) then
     begin
       //code
     end;
  end;
end;

wenn ich Escape drücke geht alles, aber wenn ich die Pfeiltasten drücke, passiert nichts außer, dass bei einer Listbox die blaue Hinterlegung auf und ab geht.

Danke schon mal für Eure Hilfe
mfG


EDIT: überall wo //code steht, steht in meinem Projekt code, aber ich will hier nichts überfüllen