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;