Код:
procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var t:tpoint;
begin
t:=mouse.cursorpos;
ScreenToClient(t);
groupbox1.Left := t.x;
groupbox1.top := t.y;
end;
так тоже не идет.. так даже хуже.. он просто уползает хз куда и все..