помогите с анимацией

разработать приложение, анимирующее качение колеса в двух случаях:
а) равномерное движение по плоскости ( прямой)
б)по параболе с нулевой начальной скоростью
одновременно с движением колеса строить траекторию точки на ободе катящегося колеса

народ помогите срочняк надо

Добавлено через 12 часов 19 минут
#include <vcl.h>
#pragma hdrstop
#include "Math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1Click(TObject *Sender)

{
int x,y,x1,y1;
Form1->Image1->Canvas->MoveTo(20,100);
Form1->Image1->Canvas->LineTo(680,100);
Form1->Image1->Canvas->Ellipse(15,40,75,100);
Form1->Image1->Canvas->Ellipse(43,38,47,42);
Form1->Image1->Canvas->Ellipse(33,101,93,161);
Form1->Image1->Canvas->MoveTo(0,0);

for (int t=0;t++;t<10000)
{
x=cos(t)+t*sin(t);
y=sin(t)-t*cos(t);
Form1->Image1->Canvas->LineTo(x,y);
}
for (int t=0;t++;t<10000)
{
x1=cos(t)+t*sin(t);
y1=sin(t)-(-t^2+t+40)*cos(t);
Form1->Image1->Canvas->LineTo(x1,y1);
}
}
вот начал а дальше ни в какую