Source position: kfunctions.pas line 629
type TQsCompareProc = function(
Data: Pointer;
Index1: Integer;
Index2: Integer
):Integer;