{ Set Shape To Supported_Generate_Points_Shapes }
case PolyLineShape1.ItemIndex of
0:
   iShape := iesRectangle;
1:
   iShape := iesRoundRect;
2:
   iShape := iesTriangle;
3:
   iShape := iesCorner;
4:
   iShape := iesDiamond;
5:
   iShape := iesStar5;
6:
   iShape := iesStar6;
7:
   iShape := iesArrowLeft;
8:
   iShape := iesArrowRight;
9:
   iShape := iesArrowUp;
10:
   iShape := iesArrowDown;
11:
   iShape := iesFatArrowUp;
12:
   iShape := iesFatArrowLeft;
13:
   iShape := iesFatArrowRight;
14:
   iShape := iesFatArrowDown;
15:
   iShape := iesArrowLeftRight;
16:
   iShape := iesArrowUpDown;
17:
   iShape := iesArrowNW;
18:
   iShape := iesArrowNE;
19:
   iShape := iesArrowSW;
20:
   iShape := iesArrowSE;
21:
   iShape := iesShootingArrowNW;
22:
   iShape := iesShootingArrowNE;
23:
   iShape := iesShootingArrowSW;
24:
   iShape := iesShootingArrowSE;
25:
   iShape := iesLightningLeft;
26:
   iShape := iesLightningRight;
27:
   iShape := iesExplosion;
28:
   iShape := iesCross;
29:
   iShape := iesShield;
30:
   iShape := iesBadge;
31:
   iShape := iesNamePlate;
32:
   iShape := iesPentagon;
33:
   iShape := iesHexagon;
34:
   iShape := iesHeptagon;
35:
   iShape := iesOctagon;
else
   iShape := iesExplosion;
end;
TIEPolylineLayer(ImageEnView.CurrentLayer).SetPoints(iShape, True);