Source position: _crw_crwapi.pas line 1036
type TCompareFunction = function(
Data: Pointer;
Key1: Pointer;
Key2: Pointer
):Integer;