是否有更简单的方式来实现这个动态移动的效果？

当然，如果你不想处理鼠标移动和点击事件细节，可以考虑使用VCL的`DragObject`组件，它可以提供一种直观的方式来创建可拖拽的对象。首先，在Delphi中选择`System`库下的`DragObject`组件，然后将它添加到你的表单中，并将其与你的按钮关联起来。

1. 创建`DragObject`实例并设置其目标对象（在这里是Button1）：

var
  Do: TDragObject;
begin
  Do := DragObject.Create(Self); // 在表单上创建DragObject实例
  Do.Control := Button1; // 将DragObject与Button1绑定
end;

2. 使用`Do.MoveTo`方法来响应鼠标移动事件：

procedure TForm1.MouseMove(var Message: TMessage);
begin
  Do.MoveTo(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

3. `DragObject`会自动处理移动后的定位和鼠标点击事件，所以不需要额外编写代码来阻止或允许点击。

注意，这种方式可能会在某些场景下失去精细的控制，比如需要精确计算坐标或者定制鼠标交互行为，但在很多基础的拖放需求中更为简洁易用。