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