Как перетаскивать форму в Builder кликая в произвольном месте формы?

//- Unit1.h -----------------------------
#ifndef MainH
#define MainH
//------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
private:    // User declarations
  bool Moving;
  POINT OldPos;
public:     // User declarations
__fastcall TForm1(TComponent* Owner);
};
//-------------------------------------------------
extern PACKAGE TForm1 *Form1;
//----------------------------------------
#endif

//- Unit1.cpp ------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include 'Main.h'
//------------------------------------------
#pragma package(smart_init)
#pragma resource '*.dfm'
TForm1 *Form1;
//----------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
  Moving=false;
}
//--- Обработчик события OnMouseDown -------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
  if(Button==mbLeft)
  {
    Moving=true;
    SetCapture(Handle);
    POINT pnt={X,Y};
    pnt=ClientToScreen(pnt);
    OldPos=pnt;
  }
}
//-----Обработчик события OnMouseUp--------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
  if(Button==mbLeft && Moving)
  {
    Moving=false;
    ReleaseCapture();
  }
}
//--Обработчик события OnMouseMove---------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,int X, int Y)
{
  if(Moving)
  {
    POINT pnt={X,Y};
    pnt=ClientToScreen(pnt);
    Left+=pnt.x-OldPos.x;
    Top+=pnt.y-OldPos.y;
    OldPos=pnt;
  }
}
//--------------------------------