Source position: compactutils.pas line 456
type TCompareEvent = function(
const Data: Pointer;
const e1: Dword;
const e2: Dword
):Integer;