Source position: extctrls.pp line 271
type TShapePointsEvent = procedure(
Sender: TObject;
var Points: TPointArray;
var Winding: Boolean
) of object;