InflateRect

procedure InflateRect(

  var rec: TRect;

  dx: Integer;

  dy: Integer

); overload;

procedure InflateRect(

  var rec: TRectD;

  dx: Double;

  dy: Double

); overload;