InflateRect

procedure InflateRect(var rec: TRect; dx, dy: integer) overload;

procedure InflateRect(var rec: TRectD; dx, dy: double) overload;