Приложения с анимацией "Катящееся колесо"

#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);
}
}