Source position: zglHeader.pas line 1364
var u_SortList: procedure(
var List: zglTStringList;
iLo: Integer;
iHi: Integer
);