Почему не работает столкновение? - PascalABC.NET

uses
  ABCObjects, GraphABC;
 
var
  ground, player: PictureABC;
  //Здесь будут храниться все елки, что есть на поле
  firtree: array [0..100] of PictureABC;
  
  i, j, h, w, x, y: integer;
  last: point;
 
procedure KeyDown(Key: integer);
begin
  //Запоминаем последнюю позицию игрока
  last := player.Position;
  case Key of
    VK_Left: player.MoveOn(-5, 0);
    VK_Right: player.MoveOn(5, 0);
    VK_Up: player.MoveOn(0, -5);
    VK_Down: player.MoveOn(0, 5);
  end;
  //Проверяем, не столкнулся ли он с какой-нибудь елкой
  for var i := 0 to 100 do
    //Если столкнулся, то возвращаем его на шаг назад
    if firtree[i].Intersect(player) Then 
    begin
      player.Position := last;
      player.MoveTo(player.Position.X, player.Position.Y);
    end;
  //Перерисовываем область вокруг игрока
  var rct := new RectangleABC(player.Left - 5, player.Top - 5, player.Width + 10, player.Height + 5);
  rct.Bordered := False;
  rct.Color := clTransparent;
  rct.RedrawNow;
  rct.Destroy;
  rct := nil;
end;
 
begin
  Randomize;
  w := 100;
  h := 100;
  TextOut(WindowCenter.X - 35, WindowCenter.Y - 15, 'Loading...');
  LockDrawingObjects;
  for i := 0 to w do 
    for j := 0 to h do 
      ground := new PictureABC(i * 30, j * 30, 'ground.png');
  player := new PictureABC(0, 0, 'player.png');
  for i := 0 to 100 do 
  begin
    x := Random((w * ground.Width) div 105) * 105;
    y := Random((h * ground.Height) div 145) * 150;
    firtree[i] := new PictureABC(x, y, 'firtree.png');
  end;
  RedrawObjects;
  OnKeyDown := KeyDown;
end.