TTChartOnTagCloudSeriesDrawTag

type TTChartOnTagCloudSeriesDrawTag = procedure(ASender: TObject; SeriesIndex, ValueIndex: Integer) of object;

Type Library
TeeChartx