First,Select some shapes that you'd like to group.
Then,Call TMyCAD's function GroupWorkingShape.
Code example:
procedure TMainFrm.Button1Click(Sender: TObject); begin //if group success,then return the grouped shape no. MyCAD1.GroupWorkingShape; end;