Организовать связь между собственным классом и классом SpriteABC

uses ABCSprites, ABCObjects,  GraphABC, Timers{, System, System.Threading};
var x,y,x1,y1: integer; f, f_foe: SpriteABC;
t_char, t_foe, foe_col: Timer;
 
procedure KeyDown(Key: integer);
begin
  //if t_char.Enabled then begin
    case Key of
      VK_Right: x+=16;
      VK_Left:  x-=16;
      VK_Up:    y-=16;
      VK_Down:  y+=16;
    end;
    if x<=0 then x:=0;
    if x>=Window.Width then x:=Window.Width-16;
    if y<=0 then y:=0;
    if y>=Window.Height then y:=Window.Height-16;
    f.MoveTo(x,y);
  //end;
end;
 
procedure tm;
begin
  onKeyDown:=KeyDown;
end;
 
procedure rndMove_foe;
var r: integer;
begin
  r:=random(16)+1;
  case r of
    1..4: x1:=x1+16;
    5..8: x1:=x1-16;
    9..12: y1:=y1+16;
    13..16: y1:=y1-16;
  end;
  if x1<=0 then x1:=0;
  if x1>=Window.Width then x1:=Window.Width-16;
  if y1<=0 then y1:=0;
  if y1>=Window.Height then y1:=Window.Height-16;
  f_foe.MoveTo(x1,y1);
end;
 
procedure f_col;
begin
  if ((abs(x-x1)=16) and (abs(y-y1)=0)) or ((abs(y-y1)=16) and (abs(x-x1)=0)) then begin
    t_foe.Enabled:=false;
    foe_col.Enabled:=false;
    var rec:= new RectangleABC(x1-40, y1-16, 100, 15, clWhite);
    rec.Text:='Привет, неудачник!';
    sleep(3000);
    rec.Destroy;
    t_foe.Enabled:=true;
    foe_col.Enabled:=true;
  end;
end;
 
begin
  Window.Height:=240;
  Window.Width:=320;
  x:=48; x1:=128;
  y:=48; y1:=128;
  f_foe:= new SpriteABC(x1, y1, 'img\foe.png');
  f:= new SpriteABC(x, y, 'img\char.png');
  t_char:= new Timer(100,tm);
  t_char.Start;
  t_foe:= new Timer(1000,rndMove_foe);
  t_foe.Start;
  foe_col:= new Timer(1, f_col);
  foe_col.Start;
end.