Классы

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class Points
{protected:
int x, y;
public:
int SetX()
{x=random(Form1->Image1->Width);
return x;};
int SetY()
{y=random(Form1->Image1->Height);
return y;}
int SetX1()
{x=random(Form1->Image1->Width);
return x;}
int SetY1()
{y=random(Form1->Image1->Height);
return y;}};
 
class Circle: public Points
{public:
int Circl (Circle &el, int t)
{el[t]=SetX();
el[t]=SetY();
el[t+1]=SetX1();
el[t+1]=SetY1();}
};
 
void Draw (int t)
{Circle **m=new Circle *[t];
for(int i=0;i<t;i++)
{Circl(m, i);
Form1->Image1->Canvas->Ellipse((int)m[i], (int)m[i], (int)m[i+1], (int)m[i+1]);}
for(int i=0;i<t;i++)
{delete m[i];}
delete [] m;}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{Application->Terminate();}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{if (CheckBox1->Checked)
{Image1->Picture->Bitmap = NULL;}
int n=StrToInt(Edit1->Text);
Draw(n);}
//---------------------------------------------------------------------------

int Circl (Circle &el, int t)
{el[t]=SetX();
el[t]=SetY();
el[t+1]=SetX1();
el[t+1]=SetY1();}
};