Очередная 2D игра-платформер

uses GraphABC;
var jump:=System.Media.SoundPlayer.Create('sound/jump.wav'); //загружаем звук прыжка
var x,y,Left,Right,up,i,j:integer;
        bg:picture;
        dy:real;
        name:string;
        picplayer:array [1..5] of picture;
        
procedure KeyDown(Key:integer); //процедура нажатия клавиши
        begin
        if key=VK_Left then Left:=1;
        if key=VK_right then Right:=1;
        if key=VK_up then up:=1;
        end;
procedure KeyUp(Key:integer);
        begin
        if key=VK_Left then Left:=0;
        if key=VK_right then Right:=0;
        if key=VK_up then up:=0;
        end;
        
begin
LockDrawing;
SetWindowSize(380,210);
x:=190; y:=105; // начальные координаты для персонажа
bg:=Picture.Create('picture/i.jpg'); //картинка заднего фона
 
for i:=1 to 3 do //загружаем картинки персонажа в массив
     picplayer[i]:=picture.Create('picture/player/'+i.ToString+'.png');
for i:=4 to 5 do //загружаем картинки персонажа в массив
     begin
     j:=i-3;
     picplayer[i]:=picture.Create('picture/player/'+j.ToString+'.png'); 
     picplayer[i].FlipHorizontal; //отображаем по горизонтали для бега в др сторону
     end;
for i:=1 to 5 do // делаем фон картинок в массиве прозрачными
     picplayer[i].Transparent:=true;
 
 
 
 
 
While true do begin
 
//управление координатами игрока по Х
if left=1 then x:=x-5; //при нажатии клавиши влево
if Right=1 then x:=x+5; // вправо
 
 
//ускорение свободного падения
dy:=dy+0.3;
y:=y+round(dy);
 
 
if (y>150) then dy:=0; //ограничиваем высоту падения по У
//данное ограничение временное, пока не прописана карта и взаимодействие с ней
 
 
 
//ПРЫЖОК
if (up=1) and (dy=0) then jump.Play; //проигрываем звук прыжка
if (up=1) and (dy=0) then dy:=-5;   //придания отрицательного ускорения
 
 
 
 
bg.Draw(0,0); //рисуем задний фон
textOut(x-10,y-45,name); //имя игрока рядом с самим игроком (временно)
 
//АНИМАЦИЯ персонажа - я привязал по остатку от деления координаты Х
 
if (Left=1) and (x mod 2 = 0) then picplayer[4].Draw(x,y);
if (Left=1) and (x mod 2 = 1) then picplayer[5].Draw(x,y);
if (Right=1) and (x mod 2 = 0) then picplayer[1].Draw(x,y);
if (Right=1) and (x mod 2 = 1) then picplayer[2].Draw(x,y);
if (Right=0) and (Left=0) then picplayer[3].Draw(x,y);
 
 
 
OnKeyDown := KeyDown;
OnKeyUp := KeyUp;
Redraw;
sleep(100);
end;
 
end.

unit testClasses;
 
interface
 
uses system, system.Resources, graphABC, system.drawing;
 
type
  //атрибут [serializable], указывающий компилятору на необходимость сериализации класса ниже
  [serializable]  
  testClass = class
  public
  number: integer;  
  text: string;
  //ВАЖНО: не все типы данных могут быть подвергуты сериализации. Например, тип system.drawing.Bitmap сериализовываь можно, а тип picture(как и большинство ABC-классов) - нельзя.
  //как узнать можно ли сериализовывать объект до компиляции программы мне неизвестно. 
  //При попытке сериализовать перемнную несериализуемого типа ты увидишь ошибку: Ошибка времени выполнения: Тип "тип, который не получилось сериализвовать" в сборке "блаблабла" не помечен как сериализуемый.
  btm: system.drawing.Bitmap; 
  [nonserialized] //в этом случае используется атрибут [nonserialized]
  pic: picture;
  constructor create(paramNumber: integer; paramText: string; paramPicPath: string);
  begin
    number := paramNumber;
    text := paramText;
    btm := new bitmap(paramPicPath);
  end;
end;  
  
implementation
end.

{$reference testClasses.dll}  //Обязательно подключаем к программе нашу библиотеку, чтобы мы могли к ней обращаться
uses system, system.Resources, graphABC, system.drawing;
 
var
  resWriter := new resXResourceWriter('testRes.resx');  //объект resource-maker
  tc := new testClasses.testClass(123, 'текст из класса', '1.png');  //объект типа testClass, что описан в библиотеке testClasses.dll, который будет добавлен в ресурсы. 
  
begin  
  resWriter.AddResource('textRes', 'текст123');  //добавляем в файл ресурсов произвольный текст
  resWriter.AddResource('testClassRes', tc);  //добавляем в файл ресурсов объект tc
  resWriter.Close; //после добавления всех ресурсов вызываем поцедуру close. Она сохраняет наш .resx файл
end.

{$reference testClasses.dll}  //Обязательно подключаем к программе нашу библиотеку, чтобы мы могли к ней обращаться
uses system, system.Resources, graphABC, system.drawing;
 
 
var
  resReader := new ResXResourceSet('testRes.resx');  //объект resource-reader
  s: string;  //переменная для произвольного текста
  tc: testClasses.testClass;  //объект типа testClass, что описан в библиотеке testClasses.dll, который будет добавлен в ресурсы.
 
 
begin
  s := resReader.GetString('textRes');  //получаем произвольный текст из ресурсов
  SetConsoleIO;
  writeln('textRes: ', s);  //выводим произвольный текст из ресурсов
  tc := testClasses.testClass(resReader.GetObject('testClassRes'));  //получаем готовый объект из ресурсов
  //пользуемся объектом из ресурсов
  writeln('testClass number: ', tc.number, 'testClass text: ', tc.text);  
  var
    bm:system.drawing.bitmap := tc.btm;
end.