Спидометр Builder С++

void MyAngleArc (TCanvas *canvas, int x, int y, unsigned radius, float start_angle, float sweep_angle, bool clockwise)
{
// x, y - центр дуги, radius - радиус, start_angle и sweep_angle - начальный и конечный углы (в градусах)
// clockwise - вариант отрисовки дуги (1 - по часовой стрелке, 0 - против)
  start_angle *= M_PI/180;
  sweep_angle *= M_PI/180;
  float temp_angle;
  if (clockwise)
  {
    temp_angle = start_angle;
    start_angle = sweep_angle;
    sweep_angle = temp_angle;
  }
  canvas->MoveTo(x+radius*cos(start_angle), y-radius*sin(start_angle));
  canvas->Arc(x-radius, y-radius, x+radius, y+radius, x+radius*cos(start_angle),
              y-radius*sin(start_angle), x+radius*cos(sweep_angle), y-radius*sin(sweep_angle));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int x = ClientWidth/2, y = ClientHeight-50;
  unsigned int r = ClientWidth/2-50, percent = 70;
  float angle = (1-percent/100.)*M_PI;
 
  MyAngleArc(Canvas, x, y, r, 0, 180, 0);
  Canvas->Pen->Width = 2;
  Canvas->Pen->Color = clRed;
  Canvas->MoveTo(x+r*cos(angle), y-r*sin(angle));
  Canvas->LineTo(x, y);
 
  Canvas->Pen->Width = 1;
  Canvas->Pen->Color = clBlack;
  for (int i = 0; i <= 10; i++)
    Canvas->TextOutW(x+r*cos((1-i/10.)*M_PI), y-r*sin((1-i/10.)*M_PI), i*10);
}