Перерисовка точек через координаты при масштабировании

TableShape *tq = dynamic_cast<TableShape *>(Sender);
     int  X=StrToInt(StringGrid1->Cells[1][1]);
     int Y=StrToInt(StringGrid1->Cells[1][2]);
 
     tq->Left = (X*Edit1->Text.ToIntDef(100))/100;
     tq->Top = (Y*Edit1->Text.ToIntDef(100))/100;

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(Button==mbLeft)
  {
     int n=StrToInt(StringGrid1->RowCount);
      n=n-1;
 
     TableShape *shape = new TableShape(this, n);
     shape->Parent = ScrollBox1;
     shape->Brush->Color = clRed;
     shape->Shape = stCircle;
     shape->Pen->Width = 0;
     shape->Width = 5*(Edit1->Text.ToIntDef(100)/100);
     shape->Height = 5*(Edit1->Text.ToIntDef(100)/100);
     shape->Left = Image1->Left+X;
     shape->Top = Image1->Top+Y;
     shape->Tag = Shapes.size();
     shape->OnMouseUp = to99MouseUp;
     shape->OnMouseDown = to99MouseDown;
     shape->OnMouseMove = to99MouseMove;
     Shapes.push_back(shape);
 
     Label1->Caption = "Òî÷åê âñåãî: " + String(Shapes.size());
     StringGrid1->Cells[1][n]=X;
     StringGrid1->Cells[2][n]=Y;
     StringGrid1->Cells[0][n]="Òî÷êà "+String(n);
     StringGrid1->Cells[1][n + 1] = "";
     StringGrid1->Cells[2][n + 1] = "";
     StringGrid1->Cells[0][n + 1] ="";
     StringGrid1->RowCount = n + 2;
  }
 
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
W = Form1->Image1->Width;
H = Form1->Image1->Height;
StringGrid1->Cells[0][0]="Ìåòêà";
StringGrid1->Cells[1][0]="X";
StringGrid1->Cells[2][0]="Y";
StringGrid1->Cells[0][1]="Òî÷êà 1";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::to99MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   Image1->Cursor=crHandPoint;
    int line;
   TableShape *tq = dynamic_cast<TableShape *>(Sender);
   if(Button == mbRight)
  {
     tq->Hide();
     std::list<TableShape*>::iterator it;
     for(it = Shapes.begin(); it != Shapes.end(); it++)
        if(tq == *it)
            break;
     it = Shapes.erase(it);
     for(; it != Shapes.end(); it++)
     {
        line = (*it)->GetLine() - 1;
        (*it)->SetLine(line);
        StringGrid1->Cells[0][line + 1] = "Òî÷êà " + IntToStr(line);
     }
     ((TPublicGrid*)StringGrid1)->DeleteRow(tq->GetLine());
     delete tq;
     Label1->Caption = "Òî÷åê âñåãî: "+String(Shapes.size());
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::to99MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Image1->Cursor=crHandPoint;
 TableShape *tq = dynamic_cast<TableShape *>(Sender);
   TRect re = Image1->ClientRect;
   TPoint pt = Point(tq->Left-Image1->Left+6,tq->Top-Image1->Top+6);
   if( PtInRect(&re,pt))
   if(Shift.Contains(ssLeft))
   {
     tq->Left += X-mx;
     tq->Top += Y-my;
     Label1->Caption = "Êîîðäèíàòû ìûøè: "
       "X="+String(tq->Left)+" Y="+String(tq->Top);
     StringGrid1->Cells[1][tq->GetLine()] = tq->Left;
     StringGrid1->Cells[2][tq->GetLine()] = tq->Top;
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::to99MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Image1->Cursor=crHandPoint;
if(Button == mbLeft) { mx = X; my = Y; }
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
    if(!jp) jp = new TJPEGImage();
      jp->LoadFromFile(OpenPictureDialog1->FileName);
      Graphics::TBitmap *im0 = new Graphics::TBitmap();
      im0->Assign(jp);
 
      Image1->Width  = (jp->Width*Edit1->Text.ToIntDef(100))/100;
      Image1->Height = (jp->Height*Edit1->Text.ToIntDef(100))/100;
 
      Image1->Picture->Bitmap->Width  = Image1->Width;
      Image1->Picture->Bitmap->Height = Image1->Height;
 
 
         int x = Image1->Picture->Width;
         int y = Image1->Picture->Height;
 
       TRect reta = Image1->BoundsRect,
            reso = Rect(0,0,jp->Width,jp->Height);
          Image1->Center=true;
         if(x<W && y<H)
      {
 
        Image1->Width=W;
        Image1->Height=H;
      }
 
      Image1->Picture->Bitmap->Canvas->CopyRect(reta,
        im0->Canvas,reso);
 
 
      delete im0;
 
TableShape *tq = dynamic_cast<TableShape *>(Sender);
 
 
     tq->Left = (Left*Edit1->Text.ToIntDef(100))/100;
     tq->Top =(Top*Edit1->Text.ToIntDef(100))/100;
       delete tq;

class TableShape : public TShape
    {
        int Line;
    public:
        TableShape (TForm* Owner, int Line) :
            TShape(Owner), Line(Line)
        {
     
        }
        void SetLine(int _Line)
        {
            Line = _Line;
        }
        int GetLine() const
        {
            return Line;
        }
    };

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{ 
     TableShape *tq ;
     std::list<TableShape*>::iterator it;
     for(it = Shapes.begin(); it != Shapes.end(); it++) {
       tq = *it;
       if( tq->Left+2 ==StringGrid1->Cells[1][ARow].ToInt() &&
           tq->Top +2 ==StringGrid1->Cells[2][ARow].ToInt())
             tq->Brush->Color = clYellow  ;
       else  tq->Brush->Color = clRed;
     }
}

   int n=StrToInt(StringGrid1->RowCount)-1;
      TableShape *tq ;
    std::list<TableShape*>::iterator it;
    for(it = Shapes.begin(); it != Shapes.end(); it++) {
       tq = *it;
          int i=1;
         for (i; i< n; i++)
         {
          int X =StringGrid1->Cells[1][i].ToInt()-ww;
          int Y =StringGrid1->Cells[2][i].ToInt()-hh;
           tq->Left= X*Edit1->Text.ToIntDef(100)/100;
           tq->Top=Y*Edit1->Text.ToIntDef(100)/100;
          }
   }