Написать программу для вывода на экран дисплея изображения катящегося двухцветного мяча

var
  Form1: TForm1;
  xc,yc,x1,y1,x2,y2,r:integer;
  u1,u2:double;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with PaintBox1 do
 begin
  xc:=75; //центр мяча
  yc:=175;
  r:=75; //его радиус
  x1:=xc; //левый конец линии диаметра
  y1:=yc-r;
  x2:=xc; //правый конец
  y2:=yc+r;
  u1:=pi/2;//угол между полож. напр. оси Х и лучом 1
  u2:=-pi/2; //то же с лучом 2
 end;
Timer1.Enabled:=true;
Timer1.Interval:=10;
doublebuffered:=true;//уменьшение мерцания
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
xc:=xc+1; //круг вправо
u1:=u1-0.01; //поворот по часовой стрелке
u2:=u2-0.01;
x1:=xc+round(r*cos(u1));
y1:=yc-round(r*sin(u1));
x2:=xc+round(r*cos(u2));
y2:=yc-round(r*sin(u2));
PaintBox1.Repaint;//перерисовка
if xc+r>=PaintBox1.Width then Timer1.Enabled:=false;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1.Canvas do //рисуем
 begin
  pen.Color:=clBlack;
  pen.Width:=5;
  moveto(0,yc+r+3);lineto(PaintBox1.Width,yc+r+3);
  pen.Color:=clBlue;
  brush.Color:=clBlue;
  chord(xc-r,yc-r,xc+r,yc+r,x2,y2,x1,y1);
  pen.Color:=clRed;
  brush.Color:=clRed;
  chord(xc-r,yc-r,xc+r,yc+r,x1,y1,x2,y2);
 end;
end;