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