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