Source position: dateutil.inc line 385
function CompareDate(
const A: TDateTime;
const B: TDateTime
):TValueRelationship;