Графика в C++ Builder

if (RadioGroup1->ItemIndex==0)
for (X=2,Y=2;X+Y<300;X+=3,Y+=3)
Image1->Canvas->Pixels[X][Y]=clBlue;
else
{Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->LineTo(X,Y);}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a,i,px,py,cx,cy;
const float pi=3.141563;
a=100;
cx=Image1->Width/2;
cy=Image1->Height/2;
for (int i=0;i<=180;i++)
{px=(int)(a*pow(cos(2*pi*i/180),3));
py=(int)(a*pow(sin(2*pi*i/180),3));
Image1->Canvas->Pixels[cx+px][cy+py]=clBlue; }
        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int a,i,px,py,cx,cy;
const float pi=3.141563;
a=100;
cx=Image1->Width/2;
cy=Image1->Height/2;
Image1->Canvas->MoveTo(cx,cy);
Image1->Canvas->Pen->Color=clRed;
for (int i=0;i<=180;i++)
{ px=(int)(a*pow(cos(2*pi*i/180),3));
py=(int)(a*pow(sin(2*pi*i/180),3));
Image1->Canvas->LineTo (cx+px,cy+py) ; }
        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
if (RadioGroup1->ItemIndex==0)
for (X=0,Y=0;X+Y<300;X+=3,Y+=3)
Image1->Canvas->Pixels [X][Y]=clBlue;
else
{Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->LineTo(X,Y);}
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));