Как задать номера фигурам?

#include <vcl.h>
#pragma hdrstop
 
#include "inEdit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(Button==mbLeft)
  {
 
     TShape *shape = new TShape(this);
     shape->Parent = Form1;
     shape->Brush->Color = clWhite;
     shape->Shape = stCircle;
     shape->Pen->Width = 0;
     shape->Width = 7;
     shape->Height = 7;
     shape->Left = Image1->Left+X-2;
     shape->Top = Image1->Top+Y-2;
     shape->OnMouseUp = Shape1MouseUp;
        Edit1->Text = " X="+String(X)+" Y="+String(Y);
     }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Shape1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
TShape *nz = dynamic_cast<TShape *>(Sender);
   if(Button == mbRight)
  {
     nz->Hide();
     delete nz;
     Edit1->Text = " ";
  }
 
}