Source position: mtputils.pas line 28
type TSortPartEvent = procedure(
aList: PPointer;
aCount: PtrInt
);