TCalcPointEvent

type TCalcPointEvent = procedure(

  Sender: TObject;

  PointNo: Integer;

  var x: Single;

  var y: Single;

  var z: Single

) of object;