diff --git a/docs/xml/lcl/graphics.xml b/docs/xml/lcl/graphics.xml
index dd768ac907..09cbba5d4a 100644
--- a/docs/xml/lcl/graphics.xml
+++ b/docs/xml/lcl/graphics.xml
@@ -1685,32 +1685,36 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- object Visibility: default -->
       <element name="TFontHandleCacheDescriptor">
-        <short/>
+        <short>
+          <var>TFontHandleCacheDescriptor</var> - descriptor for items in Font Handle Cache</short>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- variable Visibility: public -->
       <element name="TFontHandleCacheDescriptor.LogFont">
-        <short/>
+        <short>
+          <var>LogFont</var> - a font used (especially in Windows) for logs</short>
         <descr/>
         <seealso/>
       </element>
       <!-- variable Visibility: public -->
       <element name="TFontHandleCacheDescriptor.LongFontName">
-        <short/>
+        <short>
+          <var>LongFontName</var> - he long name for the Font</short>
         <descr/>
         <seealso/>
       </element>
       <!-- object Visibility: default -->
       <element name="TFontHandleCache">
-        <short/>
+        <short>
+          <var>TFontHandleCache</var> - a resource cache for font handles</short>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- procedure Visibility: protected -->
-      <element name="TFontHandleCache.RemoveItem">
+      <element name="TFontHandleCache.RemoveItem" link="#LCL.LCLResCache.TResourceCache.RemoveItem">
         <short/>
         <descr/>
         <errors/>
@@ -1721,14 +1725,14 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TFontHandleCache.Create">
+      <element name="TFontHandleCache.Create" link="#rtl.System.TObject.Create">
         <short/>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- function Visibility: public -->
-      <element name="TFontHandleCache.CompareDescriptors">
+      <element name="TFontHandleCache.CompareDescriptors" link="#LCL.LCLResCache.TResourceCache.CompareDescriptors">
         <short/>
         <descr/>
         <errors/>
@@ -1752,7 +1756,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: public -->
       <element name="TFontHandleCache.FindFont">
-        <short/>
+        <short>
+          <var>FindFont</var> - returns the Font specified by its handle as a cache item from the FontHandleCache</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1767,7 +1772,9 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: public -->
       <element name="TFontHandleCache.FindFontDesc">
-        <short/>
+        <short>
+          <var>FindFontDesc</var> - returns the descriptor for the FontHandle using its <var>LogName</var> and its <var>LongFontName</var>
+        </short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1786,7 +1793,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: public -->
       <element name="TFontHandleCache.Add">
-        <short/>
+        <short>
+          <var>Add</var> the Font specified by its handle, <var>LogFont</var> and <var>LongFontName</var>, and returns a descriptor</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1942,7 +1950,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetName">
-        <short/>
+        <short>
+          <var>SetName</var> - specify the name of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1953,7 +1962,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetSize">
-        <short/>
+        <short>
+          <var>SetSize</var> - specify the size of Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1964,14 +1974,16 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.Changed">
-        <short/>
+        <short>
+          <var>Changed</var> - method to signify that a change has occurred</short>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetCharSet">
-        <short/>
+        <short>
+          <var>GetCharSet</var> - returns the Character Set to be used for this Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -1993,7 +2005,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetHeight">
-        <short/>
+        <short>
+          <var>GetHeight</var> - returns the height of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2004,7 +2017,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetName">
-        <short/>
+        <short>
+          <var>GetName</var> - returns the name of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2015,7 +2029,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetPitch">
-        <short/>
+        <short>
+          <var>GetPitch</var> - returns the pitch of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2026,7 +2041,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetSize">
-        <short/>
+        <short>
+          <var>GetSize</var> - returns the size of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2037,8 +2053,9 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- function Visibility: protected -->
       <element name="TFont.GetStyle">
-        <short/>
-        <descr/>
+        <short>
+          <var>GetStyle</var> - returns the style of the Font</short>
+        <descr>Bold, Italic, StrikeOut, Underline</descr>
         <errors/>
         <seealso/>
       </element>
@@ -2048,7 +2065,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetCharSet">
-        <short/>
+        <short>
+          <var>SetCharSet</var> - specify the character set</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2059,7 +2077,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetColor">
-        <short/>
+        <short>
+          <var>SetColor</var> - specify the colour for the font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2081,7 +2100,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetHeight">
-        <short/>
+        <short>
+          <var>SetHeight</var> - specify the height of the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2092,7 +2112,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetPitch">
-        <short/>
+        <short>
+          <var>SetPitch</var> - specify the pitch for the Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2103,7 +2124,8 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetStyle">
-        <short/>
+        <short>
+          <var>SetStyle</var> - specify which style to use</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -2114,8 +2136,9 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetQuality">
-        <short/>
-        <descr/>
+        <short>
+          <var>SetQuality</var> - specify the quality</short>
+        <descr>Default, Draft, Proof, NonAntialiased, Antialiased</descr>
         <errors/>
         <seealso/>
       </element>
@@ -2326,13 +2349,14 @@ psSolid, psDash, psDot, psDashDot, psDashDotDot, psinsideFrame, psPattern,psClea
       </element>
       <!-- object Visibility: default -->
       <element name="TPenHandleCache">
-        <short/>
+        <short>
+          <var>TPenHandleCache</var> - Resource Cache for Pen Handles</short>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- procedure Visibility: protected -->
-      <element name="TPenHandleCache.RemoveItem">
+      <element name="TPenHandleCache.RemoveItem" link="#LCL.LCLResCache.TResourceCache.RemoveItem">
         <short/>
         <descr/>
         <errors/>
@@ -2343,7 +2367,7 @@ psSolid, psDash, psDot, psDashDot, psDashDotDot, psinsideFrame, psPattern,psClea
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TPenHandleCache.Create">
+      <element name="TPenHandleCache.Create" link="#rtl.System.TObject.Create">
         <short/>
         <descr/>
         <errors/>
@@ -8934,14 +8958,16 @@ Checks for the presence of a valid Lazarus Resource, then uses
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.DoAllocateResources">
-        <short/>
+        <short>
+          <var>DoAllocateResources</var> - method for allocating resources </short>
         <descr/>
         <errors/>
         <seealso/>
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.DoCopyProps">
-        <short/>
+        <short>
+          <var>DoCopyProps</var> - method for copying property data from another Font</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -8952,7 +8978,8 @@ Checks for the presence of a valid Lazarus Resource, then uses
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.DoDeAllocateResources">
-        <short/>
+        <short>
+          <var>DoDeAllocateResources</var> - method for freeing resources</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -8967,7 +8994,8 @@ Checks for the presence of a valid Lazarus Resource, then uses
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetFlags">
-        <short/>
+        <short>
+          <var>SetFlags</var> - specify which (Indexed) flags are to be set</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -8982,7 +9010,8 @@ Checks for the presence of a valid Lazarus Resource, then uses
       </element>
       <!-- procedure Visibility: protected -->
       <element name="TFont.SetFPColor">
-        <short/>
+        <short>
+          <var>SetFPColor</var> - specify the colour using the FreePascal list</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -11937,7 +11966,8 @@ This function checks that the value in
       </element>
       <!-- function Visibility: protected -->
       <element name="TRasterImage.GetSharedImageClass">
-        <short/>
+        <short>
+          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
         <descr/>
         <errors/>
         <seealso/>
@@ -13056,9 +13086,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TBitmap.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TBitmap.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -13098,9 +13126,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TPixmap.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TPixmap.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -13166,9 +13192,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TPortableNetworkGraphic.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TPortableNetworkGraphic.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -13208,9 +13232,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TPortableAnyMapGraphic.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TPortableAnyMapGraphic.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -13646,9 +13668,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TCustomIcon.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TCustomIcon.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -14113,7 +14133,7 @@ This function checks that the value in
         <seealso/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TCursorImage.GetSharedImageClass" link="#LCL.Graphics.TCustomIcon.GetSharedImageClass">
+      <element name="TCursorImage.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <short/>
         <descr/>
         <errors/>
@@ -14213,9 +14233,7 @@ This function checks that the value in
         <short/>
       </element>
       <!-- function Visibility: protected -->
-      <element name="TJPEGImage.GetSharedImageClass">
-        <short>
-          <var>GetSharedImageClass</var> - returns the class of Shared Raster Image</short>
+      <element name="TJPEGImage.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass">
         <descr/>
         <errors/>
         <seealso/>
@@ -14336,6 +14354,7 @@ be carefull with this, modify only within a begin/endupdate</descr>
       <element name="TIcon.GetTypeID" link="#LCL.Graphics.TCustomIcon.GetTypeID"/>
       <element name="TCursorImage.GetDefaultSize" link="#LCL.Graphics.TCustomIcon.GetDefaultSize"/>
       <element name="TCursorImage.GetTypeID" link="#LCL.Graphics.TCustomIcon.GetTypeID"/>
+      <element name="TIcnsIcon.GetSharedImageClass" link="#LCL.Graphics.TRasterImage.GetSharedImageClass"/>
     </module>
     <!-- Graphics -->
   </package>
diff --git a/docs/xml/lcl/lclrescache.xml b/docs/xml/lcl/lclrescache.xml
index 74cf58836e..9875eec311 100644
--- a/docs/xml/lcl/lclrescache.xml
+++ b/docs/xml/lcl/lclrescache.xml
@@ -1,964 +1,721 @@
-<?xml version="1.0" encoding="ISO8859-1"?>
+<?xml version="1.0"?>
 <fpdoc-descriptions>
-<package name="lcl">
-
-<!--
+  <package name="lcl">
+    <!--
   ====================================================================
     LCLResCache
   ====================================================================
 -->
-
-<module name="LCLResCache">
-<short></short>
-<descr>
-</descr>
-
-<!-- unresolved type reference Visibility: default -->
-<element name="Classes">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- unresolved type reference Visibility: default -->
-<element name="SysUtils">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- unresolved type reference Visibility: default -->
-<element name="FPCAdds">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- unresolved type reference Visibility: default -->
-<element name="LCLProc">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- unresolved type reference Visibility: default -->
-<element name="AvgLvlTree">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- object Visibility: default -->
-<element name="TResourceCacheItem">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCacheItem.FDestroying">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCacheItem.FReferenceCount">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.Handle">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.Cache">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.FirstDescriptor">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.LastDescriptor">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.Next">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheItem.Prev">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- constructor Visibility: public -->
-<element name="TResourceCacheItem.Create">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.Create.TheCache">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.Create.TheHandle">
-<short></short>
-</element>
-
-<!-- destructor Visibility: public -->
-<element name="TResourceCacheItem.Destroy">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheItem.IncreaseRefCount">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheItem.DecreaseRefCount">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheItem.AddToList">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.AddToList.First">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.AddToList.Last">
-<short></short>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheItem.RemoveFromList">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.RemoveFromList.First">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheItem.RemoveFromList.Last">
-<short></short>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheItem.WarnReferenceHigh">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TResourceCacheItem.ReferenceCount">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- "class of" type Visibility: default -->
-<element name="TResourceCacheItemClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- object Visibility: default -->
-<element name="TResourceCacheDescriptor">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCacheDescriptor.FDestroying">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheDescriptor.Item">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheDescriptor.Cache">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheDescriptor.Next">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TResourceCacheDescriptor.Prev">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- constructor Visibility: public -->
-<element name="TResourceCacheDescriptor.Create">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.Create.TheCache">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.Create.TheItem">
-<short></short>
-</element>
-
-<!-- destructor Visibility: public -->
-<element name="TResourceCacheDescriptor.Destroy">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheDescriptor.AddToList">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.AddToList.First">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.AddToList.Last">
-<short></short>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCacheDescriptor.RemoveFromList">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.RemoveFromList.First">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCacheDescriptor.RemoveFromList.Last">
-<short></short>
-</element>
-
-<!-- "class of" type Visibility: default -->
-<element name="TResourceCacheDescriptorClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- object Visibility: default -->
-<element name="TResourceCache">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FItems">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FDescriptors">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FDestroying">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FResourceCacheDescriptorClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FResourceCacheItemClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FMaxUnusedItem">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FFirstUnusedItem">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FLastUnusedItem">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TResourceCache.FUnUsedItemCount">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- procedure Visibility: protected -->
-<element name="TResourceCache.RemoveItem">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.RemoveItem.Item">
-<short></short>
-</element>
-
-<!-- procedure Visibility: protected -->
-<element name="TResourceCache.RemoveDescriptor">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.RemoveDescriptor.Desc">
-<short></short>
-</element>
-
-<!-- procedure Visibility: protected -->
-<element name="TResourceCache.ItemUsed">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.ItemUsed.Item">
-<short></short>
-</element>
-
-<!-- procedure Visibility: protected -->
-<element name="TResourceCache.ItemUnused">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.ItemUnused.Item">
-<short></short>
-</element>
-
-<!-- function Visibility: protected -->
-<element name="TResourceCache.ItemIsUsed">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TResourceCache.ItemIsUsed.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.ItemIsUsed.Item">
-<short></short>
-</element>
-
-<!-- constructor Visibility: public -->
-<element name="TResourceCache.Create">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- destructor Visibility: public -->
-<element name="TResourceCache.Destroy">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function Visibility: public -->
-<element name="TResourceCache.CompareItems">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TResourceCache.CompareItems.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareItems.Tree">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareItems.Item1">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareItems.Item2">
-<short></short>
-</element>
-
-<!-- function Visibility: public -->
-<element name="TResourceCache.CompareDescriptors">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TResourceCache.CompareDescriptors.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareDescriptors.Tree">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareDescriptors.Desc1">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TResourceCache.CompareDescriptors.Desc2">
-<short></short>
-</element>
-
-<!-- procedure Visibility: public -->
-<element name="TResourceCache.ConsistencyCheck">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TResourceCache.MaxUnusedItem">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TResourceCache.ResourceCacheItemClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TResourceCache.ResourceCacheDescriptorClass">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- object Visibility: default -->
-<element name="THandleResourceCache">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function Visibility: public -->
-<element name="THandleResourceCache.FindItem">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="THandleResourceCache.FindItem.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="THandleResourceCache.FindItem.Handle">
-<short></short>
-</element>
-
-<!-- object Visibility: default -->
-<element name="TBlockResourceCacheDescriptor">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: public -->
-<element name="TBlockResourceCacheDescriptor.Data">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- destructor Visibility: public -->
-<element name="TBlockResourceCacheDescriptor.Destroy">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- object Visibility: default -->
-<element name="TBlockResourceCache">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: private -->
-<element name="TBlockResourceCache.FDataSize">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- variable Visibility: protected -->
-<element name="TBlockResourceCache.FOnCompareDescPtrWithDescriptor">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- constructor Visibility: public -->
-<element name="TBlockResourceCache.Create">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.Create.TheDataSize">
-<short></short>
-</element>
-
-<!-- function Visibility: public -->
-<element name="TBlockResourceCache.FindDescriptor">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TBlockResourceCache.FindDescriptor.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.FindDescriptor.DescPtr">
-<short></short>
-</element>
-
-<!-- function Visibility: public -->
-<element name="TBlockResourceCache.AddResource">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TBlockResourceCache.AddResource.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.AddResource.Handle">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.AddResource.DescPtr">
-<short></short>
-</element>
-
-<!-- function Visibility: public -->
-<element name="TBlockResourceCache.CompareDescriptors">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="TBlockResourceCache.CompareDescriptors.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.CompareDescriptors.Tree">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.CompareDescriptors.Desc1">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="TBlockResourceCache.CompareDescriptors.Desc2">
-<short></short>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TBlockResourceCache.DataSize">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- property Visibility: public -->
-<element name="TBlockResourceCache.OnCompareDescPtrWithDescriptor">
-<short></short>
-<descr>
-</descr>
-<seealso>
-</seealso>
-</element>
-
-<!-- function Visibility: default -->
-<element name="ComparePHandleWithResourceCacheItem">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="ComparePHandleWithResourceCacheItem.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="ComparePHandleWithResourceCacheItem.HandlePtr">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="ComparePHandleWithResourceCacheItem.Item">
-<short></short>
-</element>
-
-<!-- function Visibility: default -->
-<element name="CompareDescPtrWithBlockResDesc">
-<short></short>
-<descr>
-</descr>
-<errors>
-</errors>
-<seealso>
-</seealso>
-</element>
-
-<!-- function result Visibility: default -->
-<element name="CompareDescPtrWithBlockResDesc.Result">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="CompareDescPtrWithBlockResDesc.DescPtr">
-<short></short>
-</element>
-
-<!-- argument Visibility: default -->
-<element name="CompareDescPtrWithBlockResDesc.Item">
-<short></short>
-</element>
-</module> <!-- LCLResCache -->
-</package>
+    <module name="LCLResCache">
+      <short>Types and methods to cache interface resources</short>
+      <descr/>
+      <!-- unresolved type reference Visibility: default -->
+      <element name="Classes">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- unresolved type reference Visibility: default -->
+      <element name="SysUtils">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- unresolved type reference Visibility: default -->
+      <element name="FPCAdds">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- unresolved type reference Visibility: default -->
+      <element name="LCLProc">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- unresolved type reference Visibility: default -->
+      <element name="AvgLvlTree">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="TResourceCacheItem">
+        <short>
+          <var>TResourceCacheItem</var> - an item in a list (<var>TResourceCache</var>)</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCacheItem.FDestroying">
+        <short>
+          <var>FDestroying</var> - local boolean variable to store Destroying status</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCacheItem.FReferenceCount">
+        <short>
+          <var>FReferenceCount</var> - local variable to store Reference Count</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.Handle">
+        <short>
+          <var>Handle</var> for Cache Item - use <var>TLCLHandle</var> instead of THandle since THandle = longint under 64bit linux</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.Cache">
+        <short>The Resource <var>Cache</var> to which this Cache Item belongs</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.FirstDescriptor">
+        <short>
+          <var>FirstDescriptor</var> - the descriptor for the first item in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.LastDescriptor">
+        <short>
+          <var>LastDescriptor</var> - the descriptor for the last item in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.Next">
+        <short>The <var>Next</var> item in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheItem.Prev">
+        <short>
+          <var>Prev</var> - the previous item in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- constructor Visibility: public -->
+      <element name="TResourceCacheItem.Create" link="#rtl.System.TObject.Create">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.Create.TheCache">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.Create.TheHandle">
+        <short/>
+      </element>
+      <!-- destructor Visibility: public -->
+      <element name="TResourceCacheItem.Destroy" link="#rtl.System.TObject.Destroy">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheItem.IncreaseRefCount">
+        <short>
+          <var>IncreaseRefCount</var> - increment the reference count</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheItem.DecreaseRefCount">
+        <short>
+          <var>DecreaseRefCount</var> - decrement the reference count</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheItem.AddToList">
+        <short>
+          <var>AddToList</var> - add an item to the cache list specified by <var>First</var>, <var>Last</var>
+        </short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.AddToList.First">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.AddToList.Last">
+        <short/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheItem.RemoveFromList">
+        <short>
+          <var>RemoveFromList</var> - remove an item from the cache list specified by <var>First</var>, <var>Last</var>
+        </short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.RemoveFromList.First">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheItem.RemoveFromList.Last">
+        <short/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheItem.WarnReferenceHigh">
+        <short>
+          <var>WarnReferenceHigh</var> - issue a warning if the number of references gets too high</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TResourceCacheItem.ReferenceCount">
+        <short>
+          <var>ReferenceCount</var> - the number of references to this Item</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- "class of" type Visibility: default -->
+      <element name="TResourceCacheItemClass">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="TResourceCacheDescriptor">
+        <short>
+          <var>TResourceCacheDescriptor</var> - a class of descriptors for ResourceCache Items</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCacheDescriptor.FDestroying">
+        <short>
+          <var>FDestroying</var> - local boolean variable to store Destroying status</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheDescriptor.Item">
+        <short>
+          <var>Item</var> - the Resource Cache Item to which this descriptor refers</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheDescriptor.Cache">
+        <short>
+          <var>Cache</var> - the resource Cache to which this Item belongs</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheDescriptor.Next">
+        <short>The <var>Next</var> descriptor in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TResourceCacheDescriptor.Prev">
+        <short>
+          <var>Prev</var> - the Previous descriptor in the list</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- constructor Visibility: public -->
+      <element name="TResourceCacheDescriptor.Create" link="#rtl.System.TObject.Create">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.Create.TheCache">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.Create.TheItem">
+        <short/>
+      </element>
+      <!-- destructor Visibility: public -->
+      <element name="TResourceCacheDescriptor.Destroy" link="#rtl.System.TObject.Destroy">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheDescriptor.AddToList">
+        <short>
+          <var>AddToList</var> - add a descriptor to the list specified by <var>First</var>, <var>Last</var>
+        </short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.AddToList.First">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.AddToList.Last">
+        <short/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCacheDescriptor.RemoveFromList">
+        <short>
+          <var>RemoveFromList</var> - remove a descriptor from the list specified by <var>First</var>, <var>Last</var>
+        </short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.RemoveFromList.First">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCacheDescriptor.RemoveFromList.Last">
+        <short/>
+      </element>
+      <!-- "class of" type Visibility: default -->
+      <element name="TResourceCacheDescriptorClass">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="TResourceCache">
+        <short>
+          <var>TResourceCache</var> - a cache (linked list) for storing Resources</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FItems">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FDescriptors">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FDestroying">
+        <short>
+          <var>FDestroying</var> - local boolean variable to store Destroying status</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FResourceCacheDescriptorClass">
+        <short>
+          <var>FResourceCacheDescriptorClass</var> - local variable for holding the class of the current descriptor</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FResourceCacheItemClass">
+        <short>
+          <var>FResourceCacheItemClass</var> - local variable for holding the class of the current cache item</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FMaxUnusedItem">
+        <short>
+          <var>FMaxUnusedItem</var> - how many freed resources to keep</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FFirstUnusedItem">
+        <short>
+          <var>FFirstUnusedItem</var> - local variable storing location of first free item</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FLastUnusedItem">
+        <short>
+          <var>FLastUnusedItem</var> - ocal variable storing location of last free item</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TResourceCache.FUnUsedItemCount">
+        <short>
+          <var>FUnUsedItemCount</var> - local variable with count of free items</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- procedure Visibility: protected -->
+      <element name="TResourceCache.RemoveItem">
+        <short>
+          <var>RemoveItem</var> from CacheItem list</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.RemoveItem.Item">
+        <short/>
+      </element>
+      <!-- procedure Visibility: protected -->
+      <element name="TResourceCache.RemoveDescriptor">
+        <short>
+          <var>RemoveDescriptor</var> from Cache Descriptor list</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.RemoveDescriptor.Desc">
+        <short/>
+      </element>
+      <!-- procedure Visibility: protected -->
+      <element name="TResourceCache.ItemUsed">
+        <short>
+          <var>ItemUsed</var> - method for signalling that the specified <var>Item</var> is being used</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.ItemUsed.Item">
+        <short/>
+      </element>
+      <!-- procedure Visibility: protected -->
+      <element name="TResourceCache.ItemUnused">
+        <short>
+          <var>ItemUnused</var> - method for signalling that the specified <var>Item</var> is unused</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.ItemUnused.Item">
+        <short/>
+      </element>
+      <!-- function Visibility: protected -->
+      <element name="TResourceCache.ItemIsUsed">
+        <short>
+          <var>ItemIsUsed</var> - returns True if specified Item is being used</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TResourceCache.ItemIsUsed.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.ItemIsUsed.Item">
+        <short/>
+      </element>
+      <!-- constructor Visibility: public -->
+      <element name="TResourceCache.Create" link="#rtl.System.TObject.Create">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- destructor Visibility: public -->
+      <element name="TResourceCache.Destroy" link="#rtl.System.TObject.Destroy">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="TResourceCache.CompareItems">
+        <short>
+          <var>CompareItems</var> - returns 0 if items are equal, -1 if Item1 is less, 1 if Item1 is greater</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TResourceCache.CompareItems.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareItems.Tree">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareItems.Item1">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareItems.Item2">
+        <short/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="TResourceCache.CompareDescriptors">
+        <short>
+          <var>CompareDescriptors</var> - returns 0 if descriptors are equal, -1 if Desc1 is less, 1 if Desc1 is greater</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TResourceCache.CompareDescriptors.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareDescriptors.Tree">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareDescriptors.Desc1">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TResourceCache.CompareDescriptors.Desc2">
+        <short/>
+      </element>
+      <!-- procedure Visibility: public -->
+      <element name="TResourceCache.ConsistencyCheck">
+        <short>
+          <var>ConsistencyCheck</var> - checks that Items have valid descriptors</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TResourceCache.MaxUnusedItem">
+        <short>
+          <var>MaxUnusedItem</var> - the largest permitted number of unused items</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TResourceCache.ResourceCacheItemClass">
+        <short>
+          <var>ResourceCacheItemClass</var> - the Class of the current Cache Item</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TResourceCache.ResourceCacheDescriptorClass">
+        <short>
+          <var>ResourceCacheDescriptorClass</var> - the class of the current cache item descriptor</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="THandleResourceCache">
+        <short>
+          <var>THandleResourceCache</var> - a Resource Cache for Handles</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="THandleResourceCache.FindItem">
+        <short>
+          <var>FindItem</var> - locate the item with the specified Handle</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="THandleResourceCache.FindItem.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="THandleResourceCache.FindItem.Handle">
+        <short/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="TBlockResourceCacheDescriptor">
+        <short>
+          <var>TBlockResourceCacheDescriptor</var> - descriptor for a Block Resource Cache</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: public -->
+      <element name="TBlockResourceCacheDescriptor.Data">
+        <short>Pointer to the <var>Data</var>
+        </short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- destructor Visibility: public -->
+      <element name="TBlockResourceCacheDescriptor.Destroy" link="#rtl.System.TObject.Destroy">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- object Visibility: default -->
+      <element name="TBlockResourceCache">
+        <short>
+          <var>TBlockResourceCache</var> - a cache for Block resources</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: private -->
+      <element name="TBlockResourceCache.FDataSize">
+        <short/>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- variable Visibility: protected -->
+      <element name="TBlockResourceCache.FOnCompareDescPtrWithDescriptor">
+        <short>
+          <var>FOnCompareDescPtrWithDescriptor</var> - local variable to hold the result of a comparison between a descriptor pointer and the descriptor itself</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- constructor Visibility: public -->
+      <element name="TBlockResourceCache.Create" link="#rtl.System.TObject.Create">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.Create.TheDataSize">
+        <short/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="TBlockResourceCache.FindDescriptor">
+        <short>
+          <var>FindDescriptor</var> - returns the descriptor whose pointer is given</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TBlockResourceCache.FindDescriptor.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.FindDescriptor.DescPtr">
+        <short/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="TBlockResourceCache.AddResource">
+        <short>
+          <var>AddResource</var> - inserts a Block resource into the list, referenced by a handle and a descriptor pointer, and returns the Block Resource Cache descriptor</short>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TBlockResourceCache.AddResource.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.AddResource.Handle">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.AddResource.DescPtr">
+        <short/>
+      </element>
+      <!-- function Visibility: public -->
+      <element name="TBlockResourceCache.CompareDescriptors" link="#LCL.LCLResCache.TResourceCache.CompareDescriptors">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="TBlockResourceCache.CompareDescriptors.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.CompareDescriptors.Tree">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.CompareDescriptors.Desc1">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="TBlockResourceCache.CompareDescriptors.Desc2">
+        <short/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TBlockResourceCache.DataSize">
+        <short>
+          <var>DataSize</var> - thetotal size of the data in the Block Resource</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- property Visibility: public -->
+      <element name="TBlockResourceCache.OnCompareDescPtrWithDescriptor">
+        <short>
+          <var>OnCompareDescPtrWithDescriptor</var> - the result of a comparison between a descriptor pointer and the descriptor itself</short>
+        <descr/>
+        <seealso/>
+      </element>
+      <!-- function Visibility: default -->
+      <element name="ComparePHandleWithResourceCacheItem">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="ComparePHandleWithResourceCacheItem.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="ComparePHandleWithResourceCacheItem.HandlePtr">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="ComparePHandleWithResourceCacheItem.Item">
+        <short/>
+      </element>
+      <!-- function Visibility: default -->
+      <element name="CompareDescPtrWithBlockResDesc">
+        <short/>
+        <descr/>
+        <errors/>
+        <seealso/>
+      </element>
+      <!-- function result Visibility: default -->
+      <element name="CompareDescPtrWithBlockResDesc.Result">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="CompareDescPtrWithBlockResDesc.DescPtr">
+        <short/>
+      </element>
+      <!-- argument Visibility: default -->
+      <element name="CompareDescPtrWithBlockResDesc.Item">
+        <short/>
+      </element>
+      <element name="TResourceCache.Clear">
+        <short>
+          <var>Clear</var> the current Resource Cache</short>
+      </element>
+    </module>
+    <!-- LCLResCache -->
+  </package>
 </fpdoc-descriptions>