OffsetPoint

procedure OffsetPoint(

  var pt: TFloatPoint;

  dx: single;

  dy: single

); overload;

procedure OffsetPoint(

  var pt: TFixedPoint;

  dx: single;

  dy: single

); overload;