Source position: direnth.inc line 43
type TCompareFunc = function(
const p1: Pointer;
const p2: Pointer
):Integer;