OffsetRect

procedure OffsetRect(

  var ARect: TRect;

  AX: Integer;

  AY: Integer

); overload;

procedure OffsetRect(

  var ARect: TRect;

  const AOffset: TPoint

); overload;