在应用程序的GroupBox控件的OnMouseDown事件中加入如下响应函数，即可通过鼠标移动位置。

procedure TForm1.GroupBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TgroupBox(sender).perform(WM_SysCommand, $F012, 0);
end;