Реализовать движение мяча более плавным

Program game;
uses crt,GraphABC;
const
speed=1;
var x,d,c,y: integer;  a:char;
begin
     LockDrawing;
     x:=51; d:=1; y:=576; c:=2;
     while((x>50) and (x<800)) do
          begin
          x:=x+d;
          y:=y-c;
          setwindowsize(900,500);
          ClearWindow;
          line(0,318,1600,318);
          FloodFill(0,400,clred);
          circle(x+10,y-288,30);
       while y<490 do
            begin
            x:=x+d;
            x:=x+10;
            y:=y+100;
            Sleep(100) ;
            end;
            if keypressed then
            begin a:=readkey;
            if a=chr(72) then x:=x*2;
            end;
            Redraw;
    end;
    end.

procedure Up(Key:integer);
begin
case Key of
vk_up:Player.MoveTo(Player.Position.X+0,Player.Position.Y-10);
end;
end;
begin
OnKeyDown:=UP;
Player:=CircleABC.Create(40,150,25);
end.

procedure Up(Key:integer);
begin
case Key of
vk_up:Player.MoveTo(Player.Position.X+0,Player.Position.Y-10);
end;
end;
begin
OnKeyDown:=UP;
Player:=CircleABC.Create(40,150,25);
end.

Line(1,425,900,425);
while Player.Position.Y<425 do
begin
Player.MoveTo(Player.Position.X,Player.Position.Y+10);
end;

Program game;
uses
  graphabc;
 
var
  x, y: integer; //Координаты моего мяча - переменные
  f: boolean; //Логическая переменная
  
  Up:= false; // Логические переменные определяющие нажатие кнопки
  Right:= false;
  Left:= false;
procedure KeyDown(key: integer); //процедура KeyDown производит какое либо действие во время нажатия кнопки
begin
  case key of
    VK_Up: Up := true;
    VK_Right: Right := true; // Присваивает ИСТИНУ переменным во время нажатия стрелок
    VK_Left: Left :=true;
  end;
end;
 
procedure KeyUp(key: integer);//процедура KeyUp производит какое либо действие во время отжатия кнопки
begin
  case key of
    VK_Up: Up := false;
    VK_Right: Right := false;//Присвоение ЛЖИ переменым во время отжатия стрелок
    VK_Left: Left :=false;
  end;
end;
 
begin //Начало тела программы
  x := 50;//Начальные координаты мяча
  y := 400;
  f := true; //Присваивание истины для выполнения цикла
  onkeydown := KeyDown; //Присвоение оригин/ой процедуре более простое название
  OnKeyUp := KeyUp;
  lockdrawing; //Оператор анимации
  repeat  //Цикличная анимация
    Window.Clear;
    SetBrushColor(clyellow); //Цвет мяча
    circle(x,y,25); //Сам мяч
    Rectangle(400,325,500,350);
    Line(1,425,900,425); //Линия "земли"
    if y<=396 then    //Аналог гравитации
    y:=y+4; 
    sleep(40);
    if Up then y := y-8; //Если UP/Right/Left - ИСТИНА то изменяет координаты мячика
    if Right then x := x+4;
    if Left then x:=x-4;
    redraw; // Оператор анимации
  until not f; //Окончание цикла
end.//конец