Returns True if R1 fits into R2.

function RectInRect(const R1: TRect; 
                    const R2: TRect): Boolean;

ImagingUtility (at line 289)