Source position: kfunctions.pas line 418
type TBsCompareProc = function(
Data: Pointer;
Index: Integer;
KeyPtr: Pointer
):Integer;