class function OverlapVertically(rec1: TRect; rec2: TRect): boolean;

This is OverlapVertically, a member of class CRectangle.