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;