Source position: tiObject.pas line 535
type TtiObjectListCompareEvent = procedure(
AItem1: TtiObject;
AItem2: TtiObject
) of object;