procedure TMainFrm.Button1Click(Sender: TObject); 
var 
  mMyShapes:TArrMyShape; 
  i:Integer; 
begin 
  mMyShapes:=MyCAD1.GetSelectedShapes; 
  for i:=0 to High(mMyShapes) do 
  begin 
    ShowMessage(mMyShapes[i].Name); 
    //Do some thing 
  end; 
end;