Source position: extgraphics.pas line 31
type TInitShapeProc = procedure(
var P: array of TPoint;
const R: TRect;
var NumPts: Integer
);