Хранение, вывод и изменение графических примитивов

class Primitives
{
    public:
    int x,y,F;
 
    Primitives(int X, int Y, int F);
    virtual void Draw() {};
};
    Primitives::Primitives(int X, int Y, int f)
    {
    x=X;
    y=Y;
    F=f;
    }
 
class Ryad:public Primitives
{
public:
    int a,b;
 
    Ryad(int X,int Y,int F,int A,int B);
    void Draw(TCanvas *Canvas);
};
 
void Ryad::Draw(TCanvas *Canvas)
{
 
    int x1=x-a/2;
    int y1=y-b/2;
    int x2=x+a/2;
    int y2=y+b/2;
 
    Canvas->Rectangle(x1,y1,x2,y2);
 
};
 
Ryad::Ryad(int X, int Y,int F, int A, int B) : Primitives(X, Y,F)
{
    a=A;
    b=B;
};
 
class Hex:public Primitives
{
public:
    int R;
 
    Hex(int X, int Y,int F, int r);
    void Draw(TCanvas *Canvas);
};
 
Hex::Hex(int X, int Y,int F, int r) : Primitives(X, Y,F)
{
  R=r;
};
 
void Hex::Draw(TCanvas *Canvas)
{
    {
     double p=M_PI;
     int i=1,n;
     n=3;
 
     Canvas->MoveTo(x+cosl(F)*R, y+sinl(F)*R);
     while (i<=n*2)
     {
     Canvas->LineTo(x+cosl(i*p/n+F)*R, y+sinl(i*p/n+F)*R);
     i++;
     }
     }
}
 
class TContainer
{
    public:
    //Primitives *objs[100];
    Ryad *objs[100];
    int count;
 
    TContainer();
 
    void Add(Ryad *obj);
    void Del(int index);
    void Draw(TCanvas *Canvas);
    int Find(int x,int y);
};
 
TContainer::TContainer()
{
count=0;
};
 
void TContainer::Add(Ryad *obj)
{
     if (count >= 100)
      {
       return;
      }
     else
 
     objs[count] = obj;
     count++;
};
 
void TContainer::Del(int index)
{
delete objs[index];
for(int i = index+1; i<count; i++)
{
objs[i-1]=objs[i];
count--;
}
};
 
TContainer data;

if (RadioButton4->Checked)
{
int a = StrToInt(Edit2->Text);
int b = StrToInt(Edit3->Text);
int f = StrToInt(Edit6->Text);
Ryad *rect=new Ryad(X,Y,f,a,b);
data.Add(rect);
delete rect;
rect = NULL;
};
 
if (RadioButton5->Checked)
{
Repaint();
for (int i = 0; i <= 4; i++)
{
data.objs[i]->Draw(Canvas);
}
}