Почему от текстур GraphABC лагает?

uses GraphABC;
begin
  SetWindowSize(300,300);
  var x:=10.0;
  var y:=10.0;
  
  /// Горизонтальная скорость
  var xd:=10;
  /// Вертикальная скорость
  var yd:=20;
  
  // Будем рисовать круг, движущийся по диагонали
  // с заданными скоростями (в п/с)
  LockDrawing;
  MillisecondsDelta;
  repeat
    ClearWindow;
    var d:=MillisecondsDelta;
    x+=xd*d/1000;
    y+=yd*d/1000;
    Circle(round(x),round(y),10);
    Redraw;
  until False;
end.

uses GameEngine2DS,GraphABC;
const
  n = 15;
 
var
  scn, scnBG, scnOverlay: Scene;
  a: Sprite; // Движущийся объект
  BGghosts, OVERLAYghosts: List<GameRectangle>;
  
function NewRect(x, y: integer): GameRectangle;
var
  a: GameRectangle;
begin
  a := new GameRectangle();
  a.CenterX := x;
  a.CenterY := y;
  a.Width := Random(100);
  a.Height := Random(100);
  a.FillColor := clRandom;
  a.Visible := true;
  a.UserStringSize := 1;
  Result := a;
end;
 
begin 
  a := NewRect(100, 100);
  a.VelocityX := 2;
  a.Image:=new Picture(1,1);
  a.Image.Load({путь к картинке спрайта});
  
  BGghosts := new List<GameRectangle>();
  for var i := 0 to n - 1 do
    BGghosts.Add(NewRect(Random(Window.Width), Random(Window.Height)));
  
  OVERLAYghosts := new List<GameRectangle>();
  for var i := 0 to n - 1 do
    OVERLAYghosts.Add(NewRect(Random(Window.Width), Random(Window.Height)));
  
  scnBG := new Scene();
  for var i := 0 to BGghosts.Count - 1 do
    scnBG.SceneObjects.Add(BGghosts[i]);
  
  scnOverlay := new Scene();
  for var i := 0 to OVERLAYghosts.Count - 1 do
    scnOverlay.SceneObjects.Add(OVERLAYghosts[i]);
  
  scn := new Scene();
  {scn.HorizonColor := clCyan;
  scn.ZenithColor := clBlue;}
  scn.SceneObjects.Add(a);
  scn.BackgroundImage:=new Picture(1,1);
  scn.BackgroundImage.Load({тут впишите путь к любой картике});
  scn.BackgroundScenes.Add(scnBG);
  scn.OverlayScenes.Add(scnOverlay);
  scn.GhostColor := GHOST_COLOR;
  scn.AsGhosts := true;
  
  MainFunctions.SetCaption(1);
  GameStarter.ActiveScene := scn;
  
  GameStarter.Start();
end.

uses GameEngine2Ds, GraphABC;
var
  scn: Scene;
 
procedure NewParticles();
begin
  ParticleSystem.ParticlesBorderColor := clRed;
  ParticleSystem.ParticlesFillColor := clRandom;
  ParticleSystem.Radius := Random(5);
  ParticleSystem.SpeedCoeff := Random(100);
  ParticleSystem.NewParticleSystem();
end;
 
begin
  scn := new Scene();
  scn.HorizonColor := clCyan;
  scn.ZenithColor := clBlue;
  
  ParticleSystem.ParticlesCount := integer.MaxValue;
  ParticleSystem.ParticlesAngleCount := 150;
  ParticleSystem.AngleCount := 6;
  ParticleSystem.RandomAngle := 15;
  ParticleSystem.CenterX := Window.Width div 2;
  ParticleSystem.CenterY := Window.Height div 2;
  ParticleSystem.MinLifeTime := 1;
  ParticleSystem.MaxLifeTime := 3;
  ParticleSystem.ParticlesMinWidth := 10;
  ParticleSystem.ParticlesMaxWidth := 20;
  ParticleSystem.ParticlesMinHeight := 10;
  ParticleSystem.ParticlesMaxHeight := 20;
  ParticleSystem.ParticlesList := scn.SceneParticles;
  ParticleSystem.MinDecSpeed := 1;
  ParticleSystem.MaxDecSpeed := 20;
  
  for var i := 0 to 3 do
    NewParticles();
  
  MainFunctions.SetCaption(1);
  GameStarter.ActiveScene := scn;
  
  GameStarter.Start();
end.

uses GameEngine2Ds, GraphABC;
var
  scn: Scene;
 
procedure NewParticles();
begin
  ParticleSystem.ParticlesBorderColor := clRed;
  ParticleSystem.ParticlesFillColor := clRandom;
  ParticleSystem.Radius := Random(5);
  ParticleSystem.SpeedCoeff := Random(100);
  ParticleSystem.NewParticleSystem();
end;
 
begin
  scn := new Scene();
  scn.HorizonColor := clCyan;
  scn.ZenithColor := clBlue;
  
  ParticleSystem.ParticlesCount := integer.MaxValue;
  ParticleSystem.ParticlesAngleCount := 450;
  ParticleSystem.AngleCount := 6;
  ParticleSystem.RandomAngle := 15;
  ParticleSystem.CenterX := Window.Width div 2;
  ParticleSystem.CenterY := Window.Height div 2;
  ParticleSystem.MinLifeTime := 1;
  ParticleSystem.MaxLifeTime := 3;
  ParticleSystem.ParticlesMinWidth := 10;
  ParticleSystem.ParticlesMaxWidth := 20;
  ParticleSystem.ParticlesMinHeight := 10;
  ParticleSystem.ParticlesMaxHeight := 20;
  ParticleSystem.ParticlesList := scn.SceneParticles;
  ParticleSystem.MinDecSpeed := 1;
  ParticleSystem.MaxDecSpeed := 20;
  
  for var i := 0 to 3 do
    NewParticles();
  
  MainFunctions.SetCaption(1);
  repeat
    ClearWindow();
    scn.Draw();
    Redraw();
  until false;
end.

    procedure ApplyForce();
    begin
      var T := ObjectData.GetTimeDelta() / 1000;
      CenterX := CenterX + VelocityX * T;
      CenterY := CenterY + VelocityY * T;
    end;