procedure Intersect(rec: CRectangle);

This is Intersect, a member of class CRectangle.