Перемещение кнопки мышкой

unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    procedure Move_MouseDown(sender: Object; e: MouseEventArgs);
    procedure Move_MouseMove(sender: Object; e: MouseEventArgs);
    procedure Move_MouseUp(sender: Object; e: MouseEventArgs);
    procedure Form1_Load(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    Move: Button;
    {$include Unit1.Form1.inc}
    {$endregion FormDesigner}
  public 
    DX, DY: integer;
    Moving: boolean;
    
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
procedure Form1.Move_MouseDown(sender: Object; e: MouseEventArgs);
begin
  if e.Button = System.Windows.Forms.MouseButtons.Left then
  begin
    DX := e.Location.X - Move.Location.X;
    DY := e.Location.Y - Move.Location.Y;
    Moving := true;
  end;
end;
 
procedure Form1.Move_MouseMove(sender: Object; e: MouseEventArgs);
begin
  if Moving then
    Move.Location := new Point(e.Location.X - DX, e.Location.Y - DY);
end;
 
procedure Form1.Move_MouseUp(sender: Object; e: MouseEventArgs);
begin
  if e.Button = System.Windows.Forms.MouseButtons.Left then
    Moving := false;
end;
 
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
  Moving := false;
end;
end.

  public
    Loc : Point;
// ...
 
procedure Form1.Move_MouseDown(sender: Object; e: MouseEventArgs);
begin
  if e.Button = System.Windows.Forms.MouseButtons.Left then Loc := e.Location;
end;
 
procedure Form1.Move_MouseMove(sender: Object; e: MouseEventArgs);
begin
  var btn := sender as Button;
  if e.Button = System.Windows.Forms.MouseButtons.Left then
  begin
    btn.Left += e.X - Loc.X;
    btn.Top += e.Y - Loc.Y;
  end;
end;