Добавить к классу TPoint1 виртуальный метод Draw(Canvas:TCanvas), который будет выводить изображение точки

class TPoint1{
 
protected:
        double FX;
        double FY;
        TColor FColor;
 
 
public:
double getX(){return FX;};
void setX(double X){FX=X;};
 
double getY(){return FY;};
void setY(double Y){FY=Y;};
 
TColor getColor(){return FColor;};
void setColor(TColor Color){FColor=Color;};
 
Draw(TCanvas &C){return C;};
 
 
AnsiString info()
{
return "Координаты X="+FloatToStr(getX())+"  Координаты Y="+FloatToStr(getY())+"  Color "+TColor(getColor());
};
 
TPoint1(double  X, double Y)
{
this->setX (X);
this->setY (Y);
this->setColor(FColor);
};
 
~TPoint1 () {};
};

TPoint1 P1(0,0);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
P1.setX((StrToFloat(Edit1->Text)));
P1.setY((StrToFloat(Edit2->Text)));
 
Label3->Font->Color=ColorDialog1->Color;
Label3->Caption=P1.info();
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (ColorDialog1->Execute())
P1.setColor(ColorDialog1->Color);
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
P1.setX((StrToFloat(Edit1->Text)));
P1.setY((StrToFloat(Edit2->Text)));
 
PaintBox2->Canvas->Pen->Color;
PaintBox2->Canvas->Draw(X,Y, C);//MoveTo(X, Y);
}
//---------------------------------------------------------------------------