Классы в Builder C++

[busi4ka]

Нужно разработать класс прямоугольник, который постепенно увеличивается к некоторому максимуму, а потом уменьшается до своего размера.
Код написала, проблема с обработчиком таймера.Помогите пожалуйста!
.h
TImage *Image1;
TTimer *Timer1;
Button *Button1;
void _fastcall FormShow(TObject *Sender);
void _fastcall Button1Click(TObject *Sender);


class Figura: public TImage
{int fR, fR1;
int finterval;
TColor fcol;
public:
void _fastcall OnTimer(TObject *S);
_fastcall TFigura(int, int, TComponent);
void _fastcall Draw();
__property int R={read=fR, write=fR};
__property int R1={read=fR1, write=fR1};
__property TColor col={read=fcol, write=fcol};
};

.cpp
TForm1 *Form1;
TFigura *Figura;
_fastcall TFigura::TFigura(int nR, int nR1, TComponent *Owner):TImage(Owner)
{fR=nR;
fR1=nR1;
fcol=clBlue;
finterval=200;
Timer=new Timer (this);
Timer->Interval=finterval;
Timer->OnTimer=OnTimer;
Timer->Enabled=True;
Parent->Application->MainForm;}

void _fastcall TFigura::Draw()
{Canvas->Brush->Color=fcol;
Canvas->Rectangle(0,0,100,150);}

void _fastcall TForm1::FormShow(TObject *Sender)
{Figura=new TFigura(70,70, Form1);
Figura->Draw();}

void _fastcall TForm1::Button1Click(TObject *Sender)
{Figura->Draw();}