Source position: Img32.CQ.pas line 151
procedure QuickSort(
var ptrArray: TArrayOfPointer;
l: Integer;
r: Integer;
sortFunc: TPointerSortFunc
);