Source position: cachecls.pp line 62
type TOnFreeSlot = procedure(
ACache: TCache;
SlotIndex: Integer
) of object;