Source position: Img32.pas line 854
procedure AdjustPoint(
var pt: TPointD;
const referencePt: TPointD;
delta: Double
);