Source position: extgraphics.pas line 85
procedure CalculatePentagonPoints(
const PentagonRect: TRect;
var P1: TPoint;
var P2: TPoint;
var P3: TPoint;
var P4: TPoint;
var P5: TPoint
);