Source position: kfunctions.pas line 631
type TQsExchangeProc = procedure(
Data: Pointer;
Index1: Integer;
Index2: Integer
);