TTChartOnGetSeriesCircleLabel
type TTChartOnGetSeriesCircleLabel = procedure(ASender: TObject; SeriesIndex: Integer; Angle: Double; Index: Integer; Var Text: WideString) of object; Type Library TeeChartx