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;