Не могу найти ошибку. Нажимаю на клавишу, выдает ошибку

uses   ABCObjects,GraphABC;
const
  Image_0 = '0_765e9_6a3e424a_S.png';
  var p:PictureABC;speed:integer;
procedure KeyDown(Key:integer);
 begin
  case Key of
    VK_Left :
     begin
      p.Left:=p.Left + speed ;
      p.Move();
     end;
  end;
 end;
procedure KeyUp(Key:integer);
 begin
  case Key of
    VK_Left :
     begin
      p.Left:=p.Left + speed ;
      p.Move();
     end;
  end;
 end;
var 
  i, n: integer;
  s: string;
  j: PictureABC;
  
 
begin
  j := PictureABC.Create(100, 100, '1234_S.png');
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
end.

uses   ABCObjects,GraphABC;
var p:PictureABC;
    speed:integer;
procedure KeyDown(Key:integer);
 begin
  case Key of
    VK_Left : p.Left:=p.Left - speed ;
    VK_Right : p.Left:=p.Left + speed ;
   end; 
 p.Move;
end;
 
begin
  p := PictureABC.Create(100, 100, '1.png');
  speed:=10;
  OnKeyDown := KeyDown;
end.