как создать редактируемый объект

int a,b,z,c;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=X;
b=Y;
Image1->OnMouseMove=ImageMouseMov;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseMov(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
z=X;
c=Y;
Image1->Left=Image1->Left+z-a;
Image1->Top=Image1->Top+c-b;
}
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool IsDown=false;
TRect Sqare(100,100,150,150);
int OldX=0;
int OldY=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(X>=Sqare.Left&&X<=Sqare.Right&&Y>=Sqare.Top&&Y<=Sqare.Bottom)
        {
        IsDown=true;
            OldX=X;
            OldY=Y;
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(IsDown)
        {
            Sqare.Left-=(OldX-X);
                Sqare.Right-=(OldX-X);
                Sqare.Top-=(OldY-Y);
                Sqare.Bottom-=(OldY-Y);
                Image1->Canvas->FillRect(TRect(0,0,Image1->Width,Image1->Height));
                Image1->Canvas->Rectangle(Sqare);
                OldX=X;
                OldY=Y;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    IsDown=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    Image1->Canvas->Rectangle(Sqare);
}
//---------------------------------------------------------------------------