TTChartOnDragPointToolStartDrag
type TTChartOnDragPointToolStartDrag = procedure(ASender: TObject; Index: Integer; start: WordBool) of object; Type Library TeeChartx