Source position: lclproc.pas line 119
type TStringsSortCompare = function(
const Item1: String;
const Item2: String
):Integer;