Source position: IdContainers.pas line 82
type TIdSortCompare = function(
AItem1: TObject;
AItem2: TObject
):Integer;