Source position: tadatatools.pas line 27
type TDataPointGetDistanceTextEvent = procedure(
ASender: TDataPointDistanceTool;
var AText: string
) of object;