Анимация движения шара

c:=250;//центр, начало координат
r1:=200;//полуось а
r2:=150;//полуось b
a:=pi/10;//угол начала дуги
b:=pi-pi/10;//угол конца дуги
u:=a; //рисуем дугу
while u<=b do
 begin
  x:=c+round(r1*cos(u));
  y:=c-round(r2*sin(u));
  if u=a then canvas.moveto(x,y)else canvas.lineto(x,y);
  u:=u+0.01;
 end;
end;

var
  Form1: TForm1;
  a,b,cx,cy,x,y:integer;
  u1,u2,u:double;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=150;
b:=215;
cx:=213;
cy:=245;
u1:=3*pi/4;
u2:=0;
u:=u1;
x:=10;
y:=165;
with Shape1 do
 begin
  shape:=stCircle;
  brush.Color:=clRed;
  width:=20;
  height:=20;
  left:=10;
  top:=165;
 end;
Timer1.Enabled:=false;
Timer1.Interval:=20;
end;
//рисуем исходную обстановку
procedure TForm1.FormPaint(Sender: TObject);
begin
 with Form1.Canvas do
  begin
    Brush.Color:=clWhite;
    Pen.Color:=clBlack;
    Pen.Width:=1;
    Pen.Style:=psSolid;
    RoundRect(0,0,400,300,5,5);
    RoundRect(20,260,360,280,5,5);    //
    Brush.Color:=clBlack;
    Brush.Style:=bsBdiagonal;
    FloodFill(25,265,clBlack,fsBorder);
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
 
 
    MoveTo(5,260) ;          //ось X
    LineTo(395,260) ;
    LineTo(385,255) ;       //стрелочка
    MoveTo(395,260) ;
    LineTo(385,265) ;
    TextOut(392,265,'X');
 
    MoveTo(20,295) ;          //ось Y
    LineTo(20,5) ;
    LineTo(15,15) ;
    MoveTo(26,15) ;
    LineTo(20,5) ;
    TextOut(30,5,'Y');
 
    MoveTo(20,175) ; //прямая в шарике
    LineTo(200,175) ;
 
    MoveTo(20,175) ; //косая из шарика
    LineTo(150,45);
 
    LineTo(140,48) ;       //стрелочка
    MoveTo(150,45) ;
    LineTo(148,55) ;
 
    TextOut(70,70,'V');
    TextOut(10,265,'0');
    Font.Height:=(10);
    TextOut(75,75,'0');
    //шарик заменим на Shape
   { Brush.Color:=clBlack;
    Ellipse(5,190,35,160);           //шарик }
 
    MoveTo(50,260) ;          //прямая от шарика до оси X
    LineTo(50,175) ;
 
    LineTo(55,185) ;
    MoveTo(50,175) ;
    LineTo(50,175) ;
    LineTo(45,185) ;
 
    MoveTo(55,250) ;
    LineTo(50,260) ;
    LineTo(45,250) ;
 
    Brush.Color:=clWhite;
    Pen.Color:=clBlack;
    Pen.Width:=1;
    Pen.Style:=psSolid;
    TextOut(70,210,'0');
    Font.Height:=(10);
    TextOut(65,210,'y');
 
    //TextOut(65,240,'y');
    //Pen.Color:=clWhite;
    //MoveTo(70,230);
    // LineTo(450,319);
     //chord (10,150,50,200,50,175,30,150) ;
 
     Arc(50,120,100,180,87,175,75,135);
     TextOut(110,140,'a');   //полукруг угла
     Pen.Color:=clBlack;
     Pen.Style:=psDot;
     Arc(63,30,363,460,250,249,95,45);
     MoveTo(360,260) ;
     LineTo(380,240) ;
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if x<=95 then
 begin
  x:=x+1;
  y:=y-1;
 end
else
 begin
  u:=u-0.01;
  x:=cx+round(a*cos(u))-10;
  y:=cy-round(b*sin(u))-10;
  if u<=u2 then Timer1.Enabled:=false;
 end;
Shape1.Left:=x;
Shape1.Top:=y;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;