OffsetPoint

procedure OffsetPoint(

  var APoint: TPoint;

  AX: Integer;

  AY: Integer

); overload;

procedure OffsetPoint(

  var APoint: TPoint;

  const AOffset: TPoint

); overload;