Не работает одна и та же механиника в разных примерах (keydown).

[Kukla19]

пример 1 (не рабочий)

     procedure KeyDown(key: integer);
 
 begin
   case key of
       vk_right:begin end;   / на эту строку ругается.     vk_right: не известное имя
         vk_left:begin end;
           vk_down:begin end;
         vk_up:
         begin 
         //inc(i);
         //writeln(i[1]);
         end;
     end;
     end;

пример 2 (рабочий)

     procedure KeyDown(key: integer);
 
 begin
   case key of
vk_up:             /все работает
      if y > 50 then
      begin
        window.Clear;
        pole;
        y -= 50;
        
        setpencolor(clgray);
        setbrushcolor(clgray);
        fillrect(x + 1, y + 1, x + 50, y + 50);
        setbrushcolor(clwhite);
        textout(x, y - 10, hphero);
        //textout(x,y-20,hphero);
        //tree;
        redraw;
      end;

[NetSpace]

по идее vk_right - это числовой код клавиши, которую хотят нажать. просто для удобства ему сделали название, чтоб было понятнее людям. а программа ждёт этот код.
попробуйте заменить все ваши VK_.... на цифры. типа так:

case key of
       111:begin end;   / на эту строку ругается.     vk_right: не известное имя
         112:begin end;
           113:begin end;

тут коды взял от балды. точно - это надо смотреть в таблице кодов.

[BDA]

А прописали "uses GraphABC;"?