Source position: syneditmiscprocs.pp line 69
function CompareCarets(
const FirstCaret: TPoint;
const SecondCaret: TPoint
):Integer;