Как сделать фиксирование и возвращение обратно

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
int x0, y0, xn, yn;
bool flag1 = false;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
xn = Label2->Left;
yn = Label2->Top;
}
//---------------------------------------------------------------------------
int OldX;
int OldY;
int x, y;
bool IsMouseDown=false;
void __fastcall TForm1::Shape2MouseDown (TObject*Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (CheckBox1->Checked && Button == mbLeft)
  {
    Tag = 1;
    x = X;
    y = Y;
    flag1 = true;
    x0 = X;
    y0 = Y;
  }
 OldX=X;
 OldY=Y;
 IsMouseDown=true;
}
void __fastcall TForm1::Shape2MouseMove (TObject*Sender, TShiftState Shift, int X, int Y)
{
  if(IsMouseDown)
     {
       Shape2->Left+=X-OldX;
          Shape2->Top+=Y-OldY;
          if (Tag)
  {
    Shape2->Left += X - x;
    Shape2->Top += Y - y;
  }
     }
     if (flag1) {
Label2->Left += X-x0; Label2->Top += Y-y0; }
}
void __fastcall TForm1::Shape2MouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
 IsMouseDown=false;
 Tag=0;
 if (abs(Label2->Left - Shape2->Left) < 10 &&
abs(Label2->Top - Shape2->Top) < 10) {
Label2->Left=Shape2->Left;
Label2->Top=Shape2->Top; }
 
else
{
Label2->Left=xn;
Label2->Top=yn;
 
flag1 = false;
}
}
//---------------------------------------------------------------------------