Objekt in Lazarus per Tastendruck bewegen!

[foerster7892]

Kann einer hier sagen wie man in Lazarus per Tastendruck Objekte bewegen kann?

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shape1.Left<236) and (Shape1.Left>2) then
  begin
    case key of
      VK_RIGHT: Shape1.Left:=Shape1.Left+1;
      VK_LEFT : Shape1.Left:=Shape1.Left-1;
    end;
  end;
end;

ich bekomme hier immer eine Fehlermeldung bei VK_Right und VK_Left!