TGenListAspectCapacityCallback.ShrinkCapacity function

function ShrinkCapacity(const ARequired: Integer; 
 const ACurrent: Integer): Integer

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.