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