TTeeShapes.Add
TTeeShapes
function
Add:
TTeeShapeItem
;
Unit
TeeProcs