Pfeiltasten benutzen zum Bewegen eines Shapes

[Maurooon]

Hallo,

ich hoffe ihr hattet alle schöne Feiertage.

Hier zu meiner Frage: Ich habe ein Shape und mehrere Buttons auf meiner Maske. Ich möchte nun das Shape mit den Pfeiltasten bewegen. drücke ich aber die Pfeiltasten, dann bewegt sich der Cursor sag ich mal nur auf den Buttons, wie man das eben kennt. was muss ich tun, damit sich tatsächlich NUR das Shape beweget?

Meine Prozedur sieht wie folgt aus:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if key = vk_left then
   Shape16.Left := Shape16.Left - 2;
  if key = vk_right then
   Shape16.Left := Shape16.Left + 2;
  if key = vk_up then
   Shape16.Top := Shape16.Top - 2;
  if key = vk_down then
   Shape16.Top := Shape16.Top + 2;
end;

LG