Изобразить последовательно зацепленными N шестерней с заданными параметрами

    PaintBox1->Canvas->Rectangle(5, 5, 100, 100);  
    PaintBox1->Canvas->Ellipse(5, 5, 100, 100);

struct cogwheel
{
  TPoint point;  // центр
  int r, toothHeight, toothCount, angle, rCenter, dir, speed;  // радиус, высота зубьев, кол-во, угол, центр оси, направление и скорость вращения
  TColor color, color2, color3;  // цвет колеса, зубьев и оси
}cw;
//---------------------------------------------------------------------------
void draw_cogwheel(cogwheel)
{
  Form1->Canvas->Brush->Color = cw.color;
  Form1->Canvas->Pen->Color = cw.color;
  Form1->Canvas->Ellipse(cw.point.x-cw.r, cw.point.y-cw.r, cw.point.x+cw.r, cw.point.y+cw.r);
 
  Form1->Canvas->Brush->Color = cw.color2;
  Form1->Canvas->Pen->Color = cw.color2;
  int rOut = cw.r + cw.toothHeight;
  TPoint points[4];
  for (int i = 0; i < cw.toothCount; i++)
  {
    points[0] = Point(cw.point.x+cw.r*cos(cw.angle*M_PI/180+2*M_PI*i/cw.toothCount), cw.point.y+cw.r*sin(cw.angle*M_PI/180+2*M_PI*i/cw.toothCount));
    points[1] = Point(cw.point.x+cw.r*cos(cw.angle*M_PI/180+(i+.5)/cw.toothCount*2*M_PI), cw.point.y+cw.r*sin(cw.angle*M_PI/180+(i+.5)/cw.toothCount*2*M_PI));
    points[2] = Point(cw.point.x+rOut*cos(cw.angle*M_PI/180+(i+.4)/cw.toothCount*2*M_PI), cw.point.y+rOut*sin(cw.angle*M_PI/180+(i+.4)/cw.toothCount*2*M_PI));
    points[3] = Point(cw.point.x+rOut*cos(cw.angle*M_PI/180+2*M_PI*(i+.1)/cw.toothCount), cw.point.y+rOut*sin(cw.angle*M_PI/180+2*M_PI*(i+.1)/cw.toothCount));
    Form1->Canvas->Polygon(points, 3);
  }
 
  Form1->Canvas->Brush->Color = cw.color3;
  Form1->Canvas->Pen->Color = cw.color3;
  Form1->Canvas->Ellipse(cw.point.x-cw.rCenter, cw.point.y-cw.rCenter, cw.point.x+cw.rCenter, cw.point.y+cw.rCenter);
}