Source position: lclproc.pas line 138
function CompareCaret(
const FirstCaret: TPoint;
const SecondCaret: TPoint
):Integer;