Source position: tatools.pas line 456
type TDataPointDragEvent = procedure(
ASender: TDataPointDragTool;
var AGraphPoint: TDoublePoint
) of object;