Как перемещать объект по форме?

var
  Form1: TForm1;
  f:boolean;
  mX,mY:integer;
implementation
 
{$R *.dfm}
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
f:=true;
mx:=X;
my:=Y;
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if f then {если можно двигать, то двигаем}
 begin
  Button1.Left:=Button1.Left-(mX-X);
  Button1.Top:=Button1.Top-(mY-Y);
 end;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
f:=false
end;

procedure TForm2.sPanel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
sPanel1.Perform(WM_SYSCOMMAND,$F012,0);
end;

unit ReplaceObjects_;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TF = class(TForm)
    bCrtObject: TButton;
    Panel0: TPanel;
    procedure bCrtObjectClick(Sender: TObject);
    procedure Panel0MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel0MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel0MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type TMove=record
     Press:Boolean;
     X,Y:Integer;
     end;
 
var
  F: TF;//главная и единственная форма
  mv:TMove;
  index:Byte;//индекс объекта
  pl:array[Byte] of TPanel;
 
implementation
 
{$R *.dfm}
 
procedure CrtPanel(Obj:TPanel;Left,Top,Height,Width:Integer);
begin
Obj:=TPanel.Create(F);
Obj.Parent:=F;
Obj.Name:='Panel'+IntToStr(Index);
Obj.Caption:='Panel'+IntToStr(Index);
Obj.Width:=Width;
Obj.Height:=Height;
Obj.ShowHint:=False;
 
Obj.Left:=Left;
Obj.Top:=Top;
Obj.Tag:=0;
Obj.Visible:=True;
Obj.OnMouseDown:=F.Panel0.OnMouseDown;
Obj.OnMouseMove:=F.Panel0.OnMouseMove;
Obj.OnMouseUp:=F.Panel0.OnMouseUp;
end;
 
{Procedure Destroy1(ComName:TClass);
var i:Integer;
begin
for i:=0 to F.ComponentCount-1 do
if(F.Components[i] is ComName=true)then (F.Components[i] as ComName).Free;
end;}
 
procedure Destroy2;    //Уничтожем все панели
var
flag:boolean;
i:integer;
begin
repeat
flag:=true;
 for i:=0 to F.ComponentCount-1 do
 begin
  if(F.Components[i] is TPanel)then
                      begin
                      F.Components[i].Free;
                      flag:=false;
                      break;
                      end;
 end;
until flag=true;
end;
 
 
procedure Move(Obj:TPanel;X,Y:Integer);
begin
if(mv.Press=True)then
                 begin
                      Obj.Left:=Obj.Left-(mv.X-X);
                      Obj.Top:=Obj.Top-(mv.Y-Y);
                 end;
end;
 
procedure TF.bCrtObjectClick(Sender: TObject);
begin
inc(index);
CrtPanel(pl[index],0,0,100,100);//создаём объект
end;
 
procedure TF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Destroy1(TPanel);
Destroy2;
end;
 
procedure TF.Panel0MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mv.Press:=true;
mv.X:=X;
mv.Y:=Y;
end;
 
procedure TF.Panel0MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
      Move((Sender as TPanel),X,Y);//двигаем объект
end;
 
procedure TF.Panel0MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      mv.Press:=False;
end;
 
end.

for i := F.ComponentCount-1 downto 0 do

procedure Destroy1(Frm: TForm; X: TClass);
var i: integer;
begin
  with Frm do
    for i := ControlCount - 1 downto 0 do
      if Controls[i] is X then Controls[i].Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Destroy1(self, TPanel);
end;