TOnTouchExtended

type TOnTouchExtended = procedure(

  Sender: TObject;

  countXY: Integer;

  X: array of single;

  Y: array of single;

  flingGesture: TFlingGesture;

  pinchZoomScaleState: TPinchZoomScaleState;

  zoomScale: single

) of object;