Clips given bounds to Clip rectangle.

procedure ClipRectBounds(var X: LongInt; 
                         var Y: LongInt; 
                         var Width: LongInt; 
                         var Height: LongInt; 
                         const Clip: TRect);

ImagingUtility (at line 274)