FMX 的 Shape 现在不是很全，至少我想找一个圆环时没找到，所以自己用代码实现了一个，供大家参考： procedure AddRing(AData: TPathData; const ACenter: TPointF; R1, R2, AStartAngle, ASweepAngle: Single); var