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

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.

setwindowsize(900,500);
line(0,318,1600,318);//а что не 3600?

uses
  GraphABC,
  ABCObjects,
  Timers;
 
var Haha:CircleABC;
var Vahah:Timer;
 
procedure Vuhah;
begin
  Haha.MoveTo(Haha.Position.X+1,Haha.Position.Y);
end;
 
begin
  Haha:=CircleABC.Create(0,Round(Window.Height/2),8,clWhite);
  Haha.BorderColor:=clBlack;
 
  Vahah:=new Timer(1,Vuhah);
  Vahah.Start;
end.

uses
  GraphABC,
  ABCObjects;
 
var Haha:CircleABC;
 
procedure Vuhah;
begin
  for var t:=0 to Window.Width-1 do
  begin
    Sleep(1);
    Haha.MoveTo(Haha.Position.X+1,Haha.Position.Y);
  end;
end;
 
begin
  Haha:=CircleABC.Create(0,Round(Window.Height/2),8,clWhite);
  Haha.BorderColor:=clBlack;
 
  Vuhah;
end.

procedure Move UP;
    begin 
      if keypressed then
      begin a:=readkey;
      if a=chr(72) then Player.MoveTo(Player.Position.X+0,Player.Position.Y-10)
      end;
    end;

Procedure KeyPress(key:char);
begin
if key=#72 then Player.MoveTo(Player.Position.X+0,Player.Position.Y-10);
end;
//основная программа
begin
onkeypres:=KeyPress;
..............
end.

uses ABCObjects,GraphABC;
var Player:CircleABC;
procedure KeyPress(Key:integer);
begin
case Key of
VK_Up:Player.MoveTo(Player.Position.X+0,Player.Position.Y-10);
OnKeyDown:=KeyPress;
end;
begin
Player:=CircleABC.Create(40,50,25);
end.

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

procedure KeyPress(Key:integer);
  begin
  case Key of
VK_W,VK_D:Player.MoveTo(Player.Position.X+10,Player.Position.Y-10);
end;
end;

OnKeyDown:=KeyPress;

var x,y,r,x1,y1,x2,y2:integer;
    f:boolean;
procedure KeyDown(key:integer);
begin
case key of
vk_up:if y>r then y:=y-5;
vk_down:if y<windowheight-r then y:=y+5;
vk_left:if x>r then x:=x-5;
vk_right:if x<windowwidth-r then x:=x+5;
vk_space:f:=false
end;
end;
procedure KeyUp(key:integer);
begin
case key of
vk_up:if y>r then y:=y-5;
vk_down:if y<windowheight-r then y:=y+5;
vk_left:if x>r then x:=x-5;
vk_right:if x<windowwidth-r then x:=x+5;
end;  
end;
begin
f:=true;
OnKeyDown := KeyDown;
OnKeyUp := KeyUp;
x:=windowwidth div 2;
y:=windowheight div 2;
r:=15;
setpenwidth(3);
setpencolor(clRed);
circle(x,y,r);
lockdrawing;
repeat
clearwindow;
circle(x,y,r);
sleep(100);
redraw;
until f=false;
end.