Передача параметров

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
class point
{protected: int x,y;
public: point(int a1,int b1); void tochka(int a1,int b1);};
 
 
class circle:public point
{protected: int r;
public: circle (int a1,int b1,int c);  void krug (int a1,int b1,int c);};
 
 
class TeloRukaGolova:public circle
{public: TeloRukaGolova(int a1,int b1,int c);  void kvadrat(int a1,int b1,int c);};
/********************конструкторы*******************************/
 
point::point(int a1,int b1)
{x=a1;y=b1;}
 
circle::circle (int a1,int b1,int c) : point (a1,b1)
{x=a1;y=b1;r=c;}
 
TeloRukaGolova::TeloRukaGolova(int a1,int b1,int c):circle(a1,b1,c)
{x=a1;y=b1;r=c;}
 
 
 
/********************методы************************************/
void point::tochka(int a1,int b1)
{x=a1;y=b1;}
 
void circle::krug(int a1,int b1,int c)
{
x=a1;y=b1;r=c;
Form1->Image1->Canvas->Ellipse(x-r,y-r,x+r,y-r);
}
 
 
/*************************************************************/
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
circle p(0,0,0);
p.krug(50,50,30);
}
//---------------------------------------------------------------------------