Ошибка при использовании модуля ABCObjects

program easymove;
uses graphabc,events,abcobjects,timers;
var
  space,object1,object2: pictureabc;
  x,y,s,i,xc,yc,xc1,yc1,hpbot,hpb,hpp:integer;
  right,left,up,down,shoot,kl:boolean;
  
  bullet1:array [1..5] of pictureabc;
  xbul,ybul,xbul1,ybul1:array[1..5] of integer;
  
  healthbotbar,healthbar:TextABC; 
 
procedure window(windowlock: boolean);
begin
  setwindowsize(760,640);
  setwindowcaption('Galaxy Wars');
  Window.IsFixedSize:=windowlock;
  space:=pictureabc.Create(0,0,'C:\Users\Дима\Desktop\Мои програмки\Top Of Programmes\Galaxy_Wars\Textures\space.jpg');
end; 
  
procedure player(hpconst:integer);
begin
hpp:=hpconst;
  x:=330;
  y:=530;
  object1:=pictureabc.Create(x,y,'C:\Users\Дима\Desktop\Мои програмки\Top Of Programmes\Galaxy_Wars\Textures\galaxyships\ship1.png');
end;
 
procedure comp(hpconst:integer);
begin
  hpb:=hpconst;
  hpbot:=hpb;
  xc:=random(10,740);
  yc:=random(10,200);
   xc1:=random(10,740);
   yc1:=random(10,200);
  object2:=pictureabc.Create(xc,yc,'C:\Users\Дима\Desktop\Мои програмки\Top Of Programmes\Galaxy_Wars\Textures\galaxyships\ship2.png');
  healthbotbar:=TextABC.Create(xc+15,yc-15,12,'',clWhite);
end;
procedure compmove(spbot:integer);
begin
    if xc1 > xc then xc:=xc+spbot;
    if xc1 < xc then xc:=xc-spbot;
    if yc1 > yc then yc:=yc+spbot;
    if yc1 < yc then yc:=yc-spbot;
    object2.MoveTo(xc,yc);
    healthbotbar.MoveTo(xc+15,yc-15);
   if (xc1>xc-5) and (xc1<xc+5) and (yc1>yc-5) and (yc1<yc+5) then
     begin
       xc1:=random(10,740);
       yc1:=random(10,200);
      end;
end;
 
procedure bulshoot();
begin
 if kl=true then 
  begin
  xbul[s]:=x;
  ybul[s]:=y;
  bullet1[s].MoveTo(xbul[s]+35,ybul[s]);
  kl:=false;
  s:=s+1;
   if s>=5 then s:=1;
  end;
end;
 
procedure keydown(key:integer);                   
begin
 
  if key=vk_right then right:=true;
  if key=vk_left then left:=true;
  if key=vk_up then up:=true;
  if key=vk_down then down:=true;
    if y<=485 then up:=false;
     if y>=530 then down:=false;
      if x>=665 then right:=false;
       if x<=0 then left:=false;
 if key=vk_space then kl:=true;
end;
 
procedure keyup(key:integer); 
begin
  if key=vk_right then right:=false;
  if key=vk_left then left:=false;
  if key=vk_up then up:=false;
  if key=vk_down then down:=false;
  //if key=vk_space then kl:=false;
end;
 
procedure move(speed:integer);
begin
  if up=true then y:=y-speed;
  if down=true then y:=y+speed;
  if right=true then x:=x+(speed+2);
  if left=true then x:=x-(speed+2);
  object1.MoveTo(x,y);
end;
 
 
procedure update(frame:integer);
begin
 while true do
begin
  move(2);
  compmove(3);
  healthbotbar.Text:=('Bot '+IntToStr(hpbot)+'/'+inttostr(hpb));
  //healthbar.Text:=('Health '+IntToStr(hpp)+'/500');
  for var i:=1 to 5 do
   begin
    ybul[i]:=ybul[i]-15;
    bullet1[i].MoveTo(xbul[i]+35,ybul[i]);
    if bullet1[i].Intersect(object2) then
     begin
     xbul[i]:=-30;
     ybul[i]:=-30;
     bullet1[i].MoveTo(xbul[i],ybul[i]);
     hpbot:=hpbot-10;
     //hpp:=hpp-10;
     healthbar.Destroy;
     healthbar:=TextABC.Create(0,0,20,'Health '+IntToStr(hpp)+'/500',clgray);
     if hpbot<=0 then
      begin
     healthbotbar.Destroy;
     object2.Destroy;
      end;
     end;   
   end;
sleep(frame);
 end;
end;
 
 
begin
s:=1;
var t:= new timer(250,bulshoot);
t.start;
  window(true);
  for i:=1 to 5 do
   begin
     xbul[i]:=-30;
     ybul[i]:=-30;
     bullet1[i]:=pictureabc.create(xbul[i],ybul[i],'C:\Users\Дима\Desktop\Мои програмки\Top Of Programmes\Galaxy_Wars\Textures\bullets\bullet1.png');
   end;
  player(500);
  comp(50);
  onkeydown:=keydown;
  onkeyup:=keyup;
  healthbar:=TextABC.Create(0,0,20,'Health '+IntToStr(hpp)+'/500',clgray);
  update(20);
end.

const
  EnemyCount = 5;
  EnemySpeed = 3;
 
type
  tEnemy = record
    ob: pictureabc;
    live: boolean;
    hp: Integer;
    xc, yc: Integer;
    
    /// создание
    constructor create;
    begin
      ob := pictureabc.Create(0, 0, 'dunit_testclass.bmp');
      init;
    end;
    
    /// возвратить к жизни
    procedure init;
    begin
      aim;
      (ob.Left, ob.Top) := (xc, yc);
      live := True;
      hp := 50;
      aim;
      move;
    end;
    
    /// убить
    procedure kill;
    begin
      MoveTo(-100, -100);
      live := False;
    end;
    
    /// движение
    procedure move;
    begin
      if not live then Exit;
      var dx := xc - ob.Left;
      var dy := yc - ob.Top;
      case sign(dx) of
        -1: ob.dx := max(-EnemySpeed, dx);
        0: ob.dx := 0;
        +1: ob.dx := min(+EnemySpeed, dx);
      end;
      case sign(dy) of
        -1: ob.dy := max(-EnemySpeed, dy);
        0: ob.dy := 0;
        +1: ob.dy := min(+EnemySpeed, dy);
      end;
      ob.Move;
      if (dx = 0) or (dy = 0) then aim;
    end;
  
    /// новая цель движения
    procedure aim;
    begin
      xc := Random(10, 740);
      yc := Random(10, 200);
    end;
  end;// tEnemy
 
var
  enemy: array of tEnemy;

  // создание противников в основном модуле программы
  SetLength(enemy, EnemyCount);
  for var e := 0 to EnemyCount - 1 do enemy[e] := new tEnemy;

  // движение противников в процедуре update
    for var e := 0 to EnemyCount-1 do enemy[e].move;

enemy[i].kill;