Почему не рисуются объекты?

uses GraphABC, GameEngine;
 
const
  n = 6000;
  m = 4;
  BlockW = 50;
  k = 0.5;
 
var
  Scn: Scene;
  MaxY: integer;
  num, border: byte;
  Mover: Sprite;
 
procedure Start();
begin
  Mover.VelocityY := 20;
  Mover.Visible := false;
end;
 
function RandomGray(): Color;
var
  RGB: byte;
begin
  RGB := Random(105);
  Result := GraphABC.RGB(RGB, RGB, RGB);
end;
 
begin
  var pic := new Picture(BlockW, BlockW);
  pic.Load('C:\Ilya\Ground.jpg');
  
  MaxY := -BlockW * n + Window.Height;
  
  Scn := new Scene();
  
  for var i := 0 to n do
  begin
    for var j := 0 to m do
    begin
      num := 100 - Random(100);
      if num > border  then
      begin
        var obj := new Sprite();
        obj.X := BlockW * j;obj.Y := MaxY + BlockW * i;
        obj.W := BlockW;obj.H := BlockW;
        obj.FillColor := RandomGray;
        Scn.Objects.Add(obj);
      end;
      Inc(border, 5);
    end;
    border := 0;
  end;
  
  for var i := 0 to n do
  begin
    for var j := 12 downto 12 - m do
    begin
      num := Random(100);
      if num > border  then
      begin
        var obj := new Sprite();
        obj.X := BlockW * j;obj.Y := MaxY + BlockW * i;
        obj.W := BlockW;obj.H := BlockW;
        obj.FillColor := RandomGray;
        Scn.Objects.Add(obj);
      end;
      Inc(border, 5);
    end;
    border := 0;
  end;
  
  SetWindowCaption('Loading Map');
  
  Mover := new Sprite();
  Mover.Visible := false;
  Mover.Keys.Add(VK_Enter, Start);
  Scn.GroupObjects(1000, 1000); // Группировка объектов.
  Scn.Objects.Add(Mover);
  
  for var i := 1 to Scn.Objects.AsArray.Length - 1 do
  begin
    var a := Scn.Objects.GetObject(i);
    a.Parent := Mover;
    a.Parented := true;
  end;
  
  Scn.Objects.MinBorder := 0;
  Scn.Objects.MaxBorder := Scn.Objects.Count - 1;
  
  SetWindowCaption('Please wait severel seconds');
  
  GameOptions.GameStart(Scn, Format('Square {0}',Scn.HandledObjectsCount)); // Вывод количество объектов на сцене (контейнеров).
  SetWindowIsFixedSize(true);
  GameOptions.SetSort(false);
end.

    procedure Draw();
    begin
      DrawSelf();
      for var i := 0 to LinkedObjects.Count - 1 do LinkedObjects[i].DrawSelf();
    end;