Source position: shellctrls.pas line 73
type TFileItemCompareEvent = function(
Item1: TFileItem;
Item2: TFileItem
):Integer of object;