Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта

Program demogame;
   uses graphabc,abcobjects,events;
  var object1,object2:rectangleabc;
   x,y,spl,xb,yb:integer;
   
 procedure player(objectl:rectangleabc;speed:integer);
  begin
    x:=random(600);
    y:=windowheight-random(400)-30;
    object1:=rectangleabc.Create(x,y,30,30,clwhite);
    spl:=speed;
  end;
  
 procedure loot(object2:rectangleabc);
  begin
    xb:=random(600);
    yb:=windowheight-random(400)-30;
   object2:=rectangleabc.Create(xb,yb,30,30,clred);
 end;
 
  procedure move(keydown:integer);
   begin
   case keydown of
 VK_right:
   begin
    object1.left:=object1.left+spl;
   end;
 VK_left:
   begin
    object1.left:=object1.left-spl;
   end;
 VK_up:
   begin
    object1.top:=object1.top-spl;
   end;
 VK_down:
   begin
    object1.top:=object1.top+spl;
   end;
  end;
end;
 
 procedure update(time:integer);
  begin
    while true do
     begin
       if object1.left<=xb+15 then
        if object1.left>=xb-15 then 
         if object1.top<=yb+15 then
         if object1.top>=yb-15 then object2.Destroy; //Ошибка
       sleep(time);
   end;
 end;
begin
   setwindowsize(640,480);
   floodfill(1,1,clblack);
   setwindowcaption('Game Snake');
   loot(object2);
   player(object1,10);
   onkeydown:=move;
   update(20);
end.

procedure update(time: integer);
begin
  while true do
  begin
    if object1.left <= xb + 15 then
      if object1.left >= xb - 15 then 
        if object1.top <= yb + 15 then
          if object1.top >= yb - 15 then 
          begin
            object2.Destroy; // Ошибки уже нет
            loot(object2); // Пересоздание
          end;
    sleep(time);
  end;
end;

procedure loot(var object2: rectangleabc); // <--- var добавь на всякий случай, ты же объект возвращаешь из процедуры...
begin
  xb := random(600);
  yb := windowheight - random(400) - 30;
  object2 := rectangleabc.Create(xb, yb, 30, 30, clred);
end;