с++ Builder ...

[Васильева Зинаида]

Здравствуйте, Ув. Программисты. Мне необходим ваш совет...
У меня такая задачка на С++ Builder ..
Описать класс-родитель и класс-потомок, имеющие методы, указанные в соответствующем варианте задания (потомок наследует или переопределяет методы родителя и приобретает новые). Предусмотреть необходимое количество кнопок для демонстрации каждого из методов объектов.
1.Родитель - прямоугольник (перемещение). Потомок - повозка (прямоугольник на 2 колесах) (перемещение вперед и назад с поворотом колес).
Вот это умня все работает ,но мне нужно сделать так чтоб колеса поворачивались. Как это сделать?...

#pragma hdrstop 

#include "Unit2.h" 

//--------------------------------------------------------------------------- 

#pragma package(smart_init) 
 TRectg :: TRectg(int X01,int Y01,int X02,int Y02,TColor Color0,TCanvas* Canvas0) 
{ 
        X1=X01; 
        Y1=Y01; 
        X2=X02; 
        Y2=Y02; 
        Color=Color0; 
        Canvas=Canvas0; 
} 
// Перемещение на заданное расстояние 
void TRectg::Move(int dX, int dY) 
{ 
        Show(clBtnFace,clBtnFace); // Удаление старого изображения 
        X1+=dX; Y1+=dY; // Расчет новых координат 
        X2+=dX; Y2+=dY; 
        Show(clBlack,Color); // Рисование изображение на новом месте 
} 
// Отображение прямоугольника 
void TRectg::Show(TColor CP, TColor CB) 
{ 
        Canvas->Pen->Color=CP; 
        Canvas->Brush->Color=CB; 
        Canvas->Rectangle(X1,Y1,X2,Y2); 
}

#pragma hdrstop 

#include "Unit3.h" 

//--------------------------------------------------------------------------- 

#pragma package(smart_init) 
 #pragma package(smart_init) 
//Отображение повозки 
void TPovozka::Show(TColor CP, TColor CB) 
{ 
        Canvas->Pen->Color=CP; 
        Canvas->Brush->Color=CB; 
        Canvas->Rectangle(X1,Y1,X2,Y2); 
        int R = 10; //Радиус колеса 
        Canvas->Ellipse(X1, Y2 - R, X1 + 2 * R, Y2 + R); 
        Canvas->Ellipse(X2 - 2 * R, Y2 - R, X2, Y2 + R);        
        TPoint pnd[8]; 
        Canvas->Pen->Color=clBtnFace; 
   } 
    void TPovozka::SetD(TColor clr) 
   { 
        ColorD = clr; 
  }

Вот это умня все работает ,но мне нужно сделать так чтоб колеса крутились. Как это сделать