Нужно создать функцию которая будет вычислять центры этих фигур,а потом создать еще одну функцию которая уже будет рисовать эти точки(центры)в фигурах

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
class Shape
{
    int x,y;
  public:
    TColor color
    ;
    Shape(int x1=random(300),
      int y1=random(250),
      TColor col=(TColor)random(0xffffff))
    {
      x=x1; y=y1;
      color=col;
    }
    virtual void Draw(TCanvas *cn)
    {
      cn->Pen->Color=color;
      cn->Ellipse(x-3,y-3,x+3,y+3);
    }
};
 
struct Points
{
  int x,y;
};
class Triangle : public Shape
{
  protected:
    Points p[3];
  public:
    Triangle(Points &p1,Points &p2,Points &p3,
          TColor col=(TColor)random(0xffffff))
    {
      p[0]=p1;
      p[1]=p2;
      p[2]=p3;
    }
    void Draw(TCanvas *cn);
};
 
void Triangle :: Draw(TCanvas *cn)
{
  int i;
  cn->Pen->Color=color;
  cn->MoveTo(p[0].x,p[0].y);
  for(i=1;i<3;i++)
  {
      cn->LineTo(p[i].x,p[i].y);
  }
  cn->LineTo(p[0].x,p[0].y);
  }
class Rects : public Shape
{
  protected:
    Points p[2];
  public:
    Rects(const Points &p1,const Points &p2,TColor col=(TColor)random(0xffffff))
    {
      p[0]=p1; p[1]=p2;
      color=col;
    }
    void Draw(TCanvas *cn)
    {
      cn->Pen->Color=color;
      cn->Brush->Style=bsClear;
      cn->Rectangle(p[0].x,p[0].y,p[1].x,p[1].y);
    }
    };
Shape** sh;
 
void RandPoint(TForm *f,Points &p);
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int pn,tn,all,i;
  Canvas->Brush->Color=clWhite;
  Canvas->Pen->Color=clWhite;
  Canvas->Rectangle(0,0,ClientWidth,ClientHeight);
  Points p1,p2,p3;
  tn=Edit1->Text.ToIntDef(3);
  pn=Edit2->Text.ToIntDef(3);
  all=pn+tn;
  sh=new Shape *[all];
   randomize();
 
  for(i=0;i<tn;i++)
  {
    RandPoint(Form1,p1);
    RandPoint(Form1,p2);
    RandPoint(Form1,p3);
    sh[i]=new Triangle(p1,p2,p3);
    Canvas->Brush->Color = sh[i]->color;
    Canvas->Pen->Color = sh[i]->color;
    Canvas->Ellipse((p1.x+p2.x+p3.x)/3-2, (p1.y+p2.y+p3.y)/3-2, (p1.x+p2.x+p3.x)/3+2, (p1.y+p2.y+p3.y)/3+2);
  }
   for(i=tn;i<all;i++)
  {
    RandPoint(Form1,p1);
    RandPoint(Form1,p2);
    sh[i]=new Rects(p1,p2);
    Canvas->Brush->Color = sh[i]->color;
    Canvas->Pen->Color = sh[i]->color;
    Canvas->Ellipse((p1.x+p2.x)/2-2, (p1.y+p2.y)/2-2, (p1.x+p2.x)/2+2, (p1.y+p2.y)/2+2);
  }
  for(i=0;i<all;i++)
  {
    sh[i]->Draw(Form1->Canvas);
  }
  for(i=0;i<all;i++)
    delete sh[i];
  delete []sh;
}
//---------------------------------------------------------------------------
void RandPoint(TForm *f,Points &p)
{
  p.x=random(f->ClientWidth);
  p.y=random(f->ClientHeight);
}
//--------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Application->Terminate();
}
//---------------------------------------------------------------------------