procedure OffsetRect(var R: TRect; Dx, Dy: Integer); overload;
procedure OffsetRec(var FR: TFloatRect; Dx, Dy: Single); overload;
Use thise functions to shift rectangles. Dx and Dy parameters specify the distance.
[See also] InflateRect