TTChartOnGetSeriesCircleLabel

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

Type Library
TeeChartx