Код:
procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var t:tpoint;
begin
t:=mouse.cursorpos;
groupbox1.Left := t.x-left-groupbox1.Left;
groupbox1.top := t.y-top-groupbox1.top;
end;
пока что так... только компонент дрыгается, но меняет позицию (и то некорректно)