Source position: rlutils.pas line 89
procedure StretchPoints(
var aPoints: array of TPoint;
const aRect: TRect
);