[C++ Builder] движени колеса по наклонной плоскости

[Attenti_ON]

Добрый день!

Мне нужно написать программу, имитирующую движение колеса со спицами по наклонной поверхности.

Вот мой код.

TForm1 *Form1;

const int n=10;
float speed=M_PI/40;
float angl=0;;
int R;
int dx;
int dy;
TPoint centr(int x,int y);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{  
    int width=Form1->Image1->Width/10;
    R = width;
    TPoint centr(0+R,0+R);
    dx=2;
    dy=1;
    Timer1->Interval=30;
    Timer1->Enabled = true;
    Image1->Canvas->Rectangle(Image1->ClientRect);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   if (angl>2*M_PI)
   {
       angl-=2*M_PI;
   }
   angl+=speed;
TCanvas *canv=Form1->Image1->Canvas;
int width=Form1->Image1->Width/10;
int R=width;
//центр окружности
TPoint centr(0+R,0+R);
//стираем колесо
canv->Pen->Color = clWhite;
canv->Ellipse(centr.x-R,centr.y-R,centr.x+R,centr.y+R);
//спицы
for (int i=0; i < n; i++)
{
canv->MoveTo(centr.x,centr.y);
canv->LineTo(cos(M_PI/n*i*2+angl)*R+centr.x,sin(M_PI/n*2*i+angl)*R+centr.y);
}
//приращение по х и у
centr.x+=dx;centr.y+=dy;
//рисуем колесо в новом месте
canv->Pen->Color = clRed;
canv->Ellipse(centr.x-R,centr.y-R,centr.x+R,centr.y+R);
//спицы в новом месте
for (int i=0; i < n; i++)
{
canv->MoveTo(centr.x,centr.y);
canv->LineTo(cos(M_PI/n*i*2+angl)*R+centr.x,sin(M_PI/n*2*i+angl)*R+centr.y);
}
}

В результате колесо со спицами крутится на одном месте, не могу понять, почему оно не движется по наклонной. Подскажите, пожалуйста, как это правильно реализовать.