diff --git a/docs/xml/lcl/comctrls.xml b/docs/xml/lcl/comctrls.xml
index 5ef722b8aa..5ce615523e 100644
--- a/docs/xml/lcl/comctrls.xml
+++ b/docs/xml/lcl/comctrls.xml
@@ -9033,22 +9033,33 @@
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TToolBar.Create" link="#rtl.Classes.TComponent.Create">
-        <short/>
-        <descr/>
+      <element name="TToolBar.Create">
+        <short>
+          <var>Create</var> - constructor for <var>TToolBar</var>: calls inherited <var>Create</var> and sets many formatting and size defaults</short>
+        <descr>
+          <p>
+            <var>Create</var> - constructor for <var>TToolBar</var>: calls inherited <var>Create</var> and sets many formatting and size defaults</p>
+          <p>Among the variables initialised and defaults set are the list of buttons, button width and height, style, indentation, alignment, links for image change, the bounds and the edge borders</p>
+        </descr>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
+        </seealso>
       </element>
       <!-- argument Visibility: default -->
       <element name="TToolBar.Create.TheOwner">
         <short/>
       </element>
       <!-- destructor Visibility: public -->
-      <element name="TToolBar.Destroy" link="#rtl.Classes.TComponent.Destroy">
-        <short/>
+      <element name="TToolBar.Destroy">
+        <short>
+          <var>Destroy</var> - destructor for <var>TToolBar</var>: frees buttons and links then calls inherited <var>Destroy</var>
+        </short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
+        </seealso>
       </element>
       <!-- procedure Visibility: public -->
       <element name="TToolBar.FlipChildren" link="#LCL.Controls.TWinControl.FlipChildren">
@@ -9796,11 +9807,14 @@
         <seealso/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TCustomTrackBar.Create" link="#rtl.Classes.TComponent.Create">
-        <short/>
+      <element name="TCustomTrackBar.Create">
+        <short>
+          <var>Create</var> - constructor for <var>TCustomTrackBar</var>: calls inherited <var>Create</var> then initialises style, position, size and bounds</short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
+        </seealso>
       </element>
       <!-- argument Visibility: default -->
       <element name="TCustomTrackBar.Create.AOwner">
@@ -11425,11 +11439,17 @@ Const
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TTreeNode.Create" link="#rtl.System.TObject.Create">
-        <short/>
+      <element name="TTreeNode.Create">
+        <short>
+          <var>
+            <var>
+              <var>Create</var> - constructor for TTreeNode:</var> calls inherited <var>Create</var> then itntialises indexes and sets subtree count to 1</var>
+        </short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
+        </seealso>
       </element>
       <!-- argument Visibility: default -->
       <element name="TTreeNode.Create.AnOwner">
@@ -11541,11 +11561,16 @@ the comparision is case sensitive.
         <seealso/>
       </element>
       <!-- destructor Visibility: public -->
-      <element name="TTreeNode.Destroy" link="#rtl.Classes.TPersistent.Destroy">
-        <short/>
+      <element name="TTreeNode.Destroy">
+        <short>
+          <var>
+            <var>Destroy</var> - destructor for <var>TTreeNode</var>: unbinds all references, frees data and calls inherited Destroy</var>
+        </short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
+        </seealso>
       </element>
       <!-- function Visibility: public -->
       <element name="TTreeNode.DisplayExpandSignLeft">
@@ -15366,22 +15391,37 @@ the comparision is case sensitive.
         <seealso/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TCustomTreeView.Create" link="#rtl.Classes.TComponent.Create">
-        <short/>
-        <descr/>
+      <element name="TCustomTreeView.Create">
+        <short>
+          <var>Create</var> - constructor for <var>TCustomTreeView</var>: calls inherited <var>Create</var> then sets defaults for style, size, etc</short>
+        <descr>
+          <p>
+            <var>Create</var> - constructor for <var>TCustomTreeView</var>: calls inherited <var>Create</var> then sets defaults for style, size, etc</p>
+          <p>Among the variables initialised and defaults set are:</p>
+          <var>size, colour, the symbols for expansion etc, the border style and width, scroll bars, options, indentation, timers, action links</var>
+        </descr>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
+          <link id="#LCL.Controls.TCustomControl.Create">TCustomControl.Create</link>
+        </seealso>
       </element>
       <!-- argument Visibility: default -->
       <element name="TCustomTreeView.Create.AnOwner">
         <short/>
       </element>
       <!-- destructor Visibility: public -->
-      <element name="TCustomTreeView.Destroy" link="#rtl.Classes.TComponent.Destroy">
-        <short/>
+      <element name="TCustomTreeView.Destroy">
+        <short>
+          <var>
+            <var>Destroy</var> - destructor for <var>TCustomTreeView</var>: frees images, nodes and links, then calls inherited Destroy</var>
+        </short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
+          <link id="#LCL.Controls.TCustomControl.Destroy">TCustomControl.Destroy</link>
+        </seealso>
       </element>
       <!-- function Visibility: public -->
       <element name="TCustomTreeView.AlphaSort">
@@ -16493,8 +16533,24 @@ the comparision is case sensitive.
       </element>
       <element name="TCustomHeaderControl.DblClick" link="#LCL.Controls.TControl.DblClick"/>
       <element name="TCustomHeaderControl.Click" link="#LCL.Controls.TControl.Click"/>
-      <element name="TCustomHeaderControl.Destroy" link="#rtl.Classes.TComponent.Destroy"/>
-      <element name="TCustomHeaderControl.Create" link="#rtl.Classes.TComponent.Create"/>
+      <element name="TCustomHeaderControl.Destroy">
+        <short>
+          <var>Destroy</var> - destructor for <var>TCustomHeaderControl</var>: frees sections then calls inherited <var>Destroy</var>
+        </short>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
+          <link id="#LCL.Controls.TCustomControl.Destroy">TCustomControl.Destroy</link>
+        </seealso>
+      </element>
+      <element name="TCustomHeaderControl.Create">
+        <short>
+          <var>
+            <var>Create</var> - constructoer for TCustomHeaderControl:</var> calls inherited <var>Create</var>, creates the sections and initialises style and bounds</short>
+        <seealso>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
+          <link id="#LCL.Controls.TCustomControl.Create">TCustomControl.Create</link>
+        </seealso>
+      </element>
       <element name="TCustomHeaderControl.DragReorder">
         <short>
           <var>DragReorder</var> - find out if the sections are allowed to be re-ordered by dragging</short>
@@ -16592,7 +16648,14 @@ the comparision is case sensitive.
         <short>
           <var>THeaderSection</var> - the individual sections of a THeaderControl, each of which can be used to control its own option, selection etc</short>
       </element>
-      <element name="THeaderSection.Create" link="#rtl.Classes.TCollectionItem.Create"/>
+      <element name="THeaderSection.Create">
+        <short>
+          <var>
+            <var>Create</var> - constructor for THeaderSection:</var> calls inherited <var>Create</var> then initialises state, visibility, alignment, size and Index</short>
+        <seealso>
+          <link id="#rtl.Classes.TCollectionItem.Create">TCollectionItem.Create</link>
+        </seealso>
+      </element>
       <element name="THeaderSection.Assign" link="#rtl.Classes.TPersistent.Assign"/>
       <element name="THeaderSection.Left">
         <short>The position of the left boundary of the section</short>
diff --git a/docs/xml/lcl/forms.xml b/docs/xml/lcl/forms.xml
index ca7921628b..edfbcd605f 100644
--- a/docs/xml/lcl/forms.xml
+++ b/docs/xml/lcl/forms.xml
@@ -165,10 +165,8 @@
         <descr>
           <p>poDesigned - The Form appears exactly as it is positioned and sized in the Form Designer</p>
           <p>poDefault - The window manager decides how the form is to appear, in a default position and size</p>
-
-<p>poDefaultPosOnly - keeps the Designed size, but position determined by windowmanager</p>
-
-<p>poDefaultSizeOnly - keeps the Designed position, but size determined by windowmanager</p>
+          <p>poDefaultPosOnly - keeps the Designed size, but position determined by windowmanager</p>
+          <p>poDefaultSizeOnly - keeps the Designed position, but size determined by windowmanager</p>
           <p>poScreenCenter - Centers the form on screen</p>
           <p>poDeskTopCenter - Centers the form on desktop</p>
           <p>poMainFormCenter - Centers the Form on the Main Form</p>
@@ -678,7 +676,7 @@ This is an ancestor class for many form types and classes of windowed controls
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
         <short>
           <var>Create</var> - constructor for <var>TControlScrollBar</var>: performs inherited <var>Create</var> then initialises local flags for page, increment, position etc</short>
@@ -1029,7 +1027,7 @@ Reads or writes a flag to determine paging increment; default value is 80 pixels
 </descr>
         <errors/>
         <seealso>
-          <link id="#LCL.Controls.TCustomControl.Create"/>
+          <link id="#LCL.Controls.TCustomControl.Create">TCustomControl.Create</link>
         </seealso>
         <short>
           <var>Create</var> - constructor for <var>TScrollingWinControl</var>: performs inherited <var>Create</var> then creates and intiialises the scrollbars</short>
@@ -1448,7 +1446,7 @@ If the indicators are valid, re-computes position etc</descr>
         <descr/>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TScrollingWinControl.Create"/>
+          <link id="#LCL.Forms.TScrollingWinControl.Create">TScrollingWinControl.Create</link>
         </seealso>
       </element>
       <!-- argument Visibility: default -->
@@ -1457,7 +1455,9 @@ If the indicators are valid, re-computes position etc</descr>
       </element>
       <!-- "class of" type Visibility: default -->
       <element name="TCustomFrameClass">
-        <short/>
+        <short>
+          <var>TCustomFrameClass</var> - class of <var>TCustomFrame</var>
+        </short>
         <descr/>
         <seealso/>
       </element>
@@ -3080,7 +3080,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
 </descr>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TScrollingWinControl.Create"/>
+          <link id="#LCL.Forms.TScrollingWinControl.Create">TScrollingWinControl.Create</link>
         </seealso>
       </element>
       <!-- argument Visibility: default -->
@@ -3130,7 +3130,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TScrollingWinControl.Destroy"/>
+          <link id="#LCL.Forms.TScrollingWinControl.Destroy">TScrollingWinControl.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -4315,7 +4315,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TCustomForm.Create"/>
+          <link id="#LCL.Forms.TCustomForm.Create">TCustomForm.Create</link>
         </seealso>
       </element>
       <!-- argument Visibility: default -->
@@ -4435,7 +4435,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TCustomForm.Create"/>
+          <link id="#LCL.Forms.TCustomForm.Create">TCustomForm.Create</link>
         </seealso>
       </element>
       <!-- argument Visibility: default -->
@@ -4450,7 +4450,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#LCL.Forms.TCustomForm.Destroy"/>
+          <link id="#LCL.Forms.TCustomForm.Destroy">TCustomForm.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -5033,7 +5033,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.Classes.TComponent.Create"/>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
         </seealso>
         <short>
           <var>Create</var> - constructor for <var>TScreen</var>: performs inherited <var>Create</var> then creates and initialises lists of fonts, strings and forms</short>
@@ -5047,7 +5047,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.Classes.TComponent.Destroy"/>
+          <link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
         </seealso>
         <short>
           <var>Destroy</var> - destructor for <var>TForm</var>: frees various lists then performs inherited <var>Destroy</var>
@@ -6656,7 +6656,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
 </descr>
         <errors/>
         <seealso>
-          <link id="#fcl.CustApp.TCustomApplication.Create"/>
+          <link id="#fcl.CustApp.TCustomApplication.Create">TCustomApplication.Create</link>
         </seealso>
         <short>
           <var>Create</var> - constructor for <var>TApplication</var>: initialises a large number of local variables and properties, then calls inherited <var>Create</var>
@@ -6671,7 +6671,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
         <descr/>
         <errors/>
         <seealso>
-          <link id="#fcl.CustApp.TCustomApplication.Destroy"/>
+          <link id="#fcl.CustApp.TCustomApplication.Destroy">TCustomApplication.Destroy</link>
         </seealso>
         <short>
           <var>Destroy</var> - destructor for <var>TApplication</var>: frees various handles and flags, then cals inherited <var>Destroy</var>
@@ -6947,18 +6947,14 @@ It also writes details of the exception to the appropriate place for debugging.
           <p>The argument <var>Flags</var> is a long integer constructed by adding together various constants to define the contents and behaviour of the box, for example:</p>
           <p>MB_ABORTRETRYIGNORE + MR_ICONQUESTION will cause the application to display a query (?) icon in a box with three buttons: </p>
           <p>ABORT RETRY IGNORE.</p>
-         
           <p>The following button constants are available:</p>
-         
           <p>MB_OK</p>
           <p>MB_OKCANCEL</p>
           <p>MB_ABORTRETRYIGNORE</p>
           <p>MB_YESNOCANCEL</p>
           <p>MB_YESNO</p>
           <p>MB_RETRYCANCEL</p>
-      
           <p>And the following icon constants:</p>
-         
           <p>MB_ICONHAND</p>
           <p>MB_ICONQUESTION</p>
           <p>MB_ICONEXCLAMATION</p>
@@ -6967,9 +6963,7 @@ It also writes details of the exception to the appropriate place for debugging.
           <p>MB_ICONERROR = MB_ICONHAND</p>
           <p>MB_ICONSTOP = MB_ICONHAND</p>
           <p>MB_ICONINFORMATION = MB_ICONASTERICK</p>
-     
           <p>These constants are declared on the LCLType unit.</p>
-        
           <p>The function returns an integer value corresponding to the button that was pressed; its value can be determined by reference to the constants [IDOK..IDHELP]</p>
           <p>It can be invoked like a procedure call (ie as a 'MessageBox()' statement rather than as a 'Variable := MessageBox()' function call)</p>
         </descr>
@@ -8518,7 +8512,7 @@ Navigation Options is a set, so can take zero or more of the available values</d
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.Classes.TComponent.Create"/>
+          <link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
         </seealso>
       </element>
       <!-- argument Visibility: default -->
@@ -8533,7 +8527,7 @@ Navigation Options is a set, so can take zero or more of the available values</d
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.Classes.TComponent.Destroy"/>
+          <link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
         </seealso>
       </element>
       <!-- property Visibility: published -->
diff --git a/docs/xml/lcl/graphics.xml b/docs/xml/lcl/graphics.xml
index b1b468a037..28ae7925e9 100644
--- a/docs/xml/lcl/graphics.xml
+++ b/docs/xml/lcl/graphics.xml
@@ -1701,7 +1701,7 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       <!-- variable Visibility: public -->
       <element name="TFontHandleCacheDescriptor.LongFontName">
         <short>
-          <var>LongFontName</var> - he long name for the Font</short>
+          <var>LongFontName</var> - the long name for the Font</short>
         <descr/>
         <seealso/>
       </element>
@@ -2143,12 +2143,13 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
       <!-- constructor Visibility: public -->
       <element name="TFont.Create">
         <descr>
-          <var>Create</var> - constructor for TFont: Opens a new instance of the class and sets defaults for character set, colour, size etc
-</descr>
+          <p>
+            <var>Create</var> - constructor for <var>TFont</var>: Opens a new instance of the class , calling inherited <var>Create</var> and sets defaults for character set, colour, size etc</p>
+        </descr>
         <short>
-          <var>Create</var> - constructor for TFont: Opens a new instance of the class</short>
+          <var>Create</var> - constructor for <var>TFont</var>: Opens a new instance of the class, calling inherited <var>Create</var> and setting some defaults</short>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <!-- destructor Visibility: public -->
@@ -2157,7 +2158,7 @@ Since FPC 2.0 the LCL uses TFPCanvasHelper as ancestor.
           <var>Destroy</var> - destructor for <var>TFont</var>: frees reference then performs inherited <var>Destroy</var>
         </short>
         <seealso>
-          <link id="#rtl.Classes.TPersistent.Destroy"/>
+          <link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -2503,7 +2504,7 @@ psSolid, psDash, psDot, psDashDot, psDashDotDot, psinsideFrame, psPattern,psClea
         <short>
           <var>Create</var> - constructor for TPen: performs inherited <var>Create</var> then sets some local defaults, style, mode, width and colour</short>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <!-- destructor Visibility: public -->
@@ -2514,7 +2515,7 @@ psSolid, psDash, psDot, psDashDot, psDashDotDot, psinsideFrame, psPattern,psClea
           <var>Destroy</var> - destructor for <var>TPen</var>: frees reference then performs inherited <var>Destroy</var>
         </short>
         <seealso>
-          <link id="#rtl.Classes.TPersistent.Destroy"/>
+          <link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -2750,7 +2751,7 @@ Default is psSolid
           <var>Create</var> - constructor for <var>TBrush</var>: perform inherited <var>Create</var> then initialise some local variables and <var>SetStyle</var>
         </short>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <!-- destructor Visibility: public -->
@@ -2776,7 +2777,7 @@ Default is psSolid
           <var>Destroy</var> - destructor for <var>TBrush</var>: free reference then perform inherited <var>Destroy</var>
         </short>
         <seealso>
-          <link id="#rtl.Classes.TPersistent.Destroy"/>
+          <link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
         </seealso>
       </element>
       <!-- property Visibility: public -->
@@ -3957,7 +3958,7 @@ If the file is not of the right format, an exception will be generated.</descr>
         <short>
           <var>Create</var> - constructor for TPicture: performs inherited <var>Create</var> then loads file and clipboard formats</short>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <!-- destructor Visibility: public -->
@@ -3968,7 +3969,7 @@ If the file is not of the right format, an exception will be generated.</descr>
           <var>Destroy</var> - destructor for <var>TPicture</var>: frees graphic then performs inherited <var>Destroy</var>
         </short>
         <seealso>
-          <link id="#rtl.Classes.TPersistent.Destroy"/>
+          <link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -4665,16 +4666,28 @@ If the file is not of the right format, an exception will be generated.</descr>
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TCanvas.Create" link="#fcl.FPCanvas.TFPCustomCanvas.create">
+      <element name="TCanvas.Create">
         <descr>
-          <var>TCanvas</var>
+          <p>
+            <var>Create</var> - constructor for <var>TCanvas</var>: calls inherited <var>Create</var> and sets defaults for many properties and actions</p>
+          <p>Initialises Font, Pen and Brush, makes event handlers for these, sets up defaults for Alignment, Layout, Clipping and opacity</p>
         </descr>
+        <short>
+          <var>Create</var> - constructor for <var>TCanvas</var>: calls inherited <var>Create</var> and sets defaults for many properties and actions</short>
+        <seealso>
+          <link id="#fcl.FPCanvas.TFPCustomCanvas.Create">TFPCustomCanvas.Create</link>
+        </seealso>
       </element>
       <!-- destructor Visibility: public -->
-      <element name="TCanvas.Destroy" link="#fcl.FPCanvas.TFPCustomCanvas.destroy">
+      <element name="TCanvas.Destroy">
         <descr>
           <var>TCanvas</var> and makes its resources available
 </descr>
+        <short>
+          <var>Destroy</var> - destructor for <var>TCanvas</var>: frees handles and region, calls inherited <var>Destroy</var>, sets font, pen and brush resources to nil</short>
+        <seealso>
+          <link id="#fcl.FPCanvas.TFPCustomCanvas.Destroy">TFPCustomCanvas.Destroy</link>
+        </seealso>
       </element>
       <!-- procedure Visibility: public -->
       <element name="TCanvas.Lock">
@@ -8612,7 +8625,7 @@ Checks for the presence of a valid Lazarus Resource, then uses
         <short>
           <var>Create</var> - constructor for TJPEGImage: performs inherited <var>Create</var> then initialises local variables for performance, quality and encoding</short>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <element name="TJPEGImage.GetFileExtensions" link="#LCL.Graphics.TGraphic.GetFileExtensions"/>
@@ -13320,13 +13333,13 @@ Checks for the presence of a valid Lazarus Resource, then uses
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TSharedIcon.Create" link="#rtl.System.TObject.Create">
+      <element name="TSharedIcon.Create">
         <short>
           <var>Create</var> - constructor for <var>TSharedIcon</var>: performs inherited <var>Create</var> then creates a list of images</short>
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.System.TObject.Create"/>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
         </seealso>
       </element>
       <!-- destructor Visibility: public -->
@@ -13337,7 +13350,7 @@ Checks for the presence of a valid Lazarus Resource, then uses
         <descr/>
         <errors/>
         <seealso>
-          <link id="#rtl.System.TObject.Destroy"/>
+          <link id="#rtl.System.TObject.Destroy">TObject.Destroy</link>
         </seealso>
       </element>
       <!-- procedure Visibility: public -->
@@ -13438,12 +13451,14 @@ Checks for the presence of a valid Lazarus Resource, then uses
         <short/>
       </element>
       <!-- constructor Visibility: public -->
-      <element name="TIconImage.Create" link="#rtl.System.TObject.Create">
+      <element name="TIconImage.Create">
         <short>
           <var>Create</var> - Specifies a Raw image to be used, then used Inherited Create</short>
         <descr/>
         <errors/>
-        <seealso/>
+        <seealso>
+          <link id="#rtl.System.TObject.Create">TObject.Create</link>
+        </seealso>
       </element>
       <!-- argument Visibility: default -->
       <element name="TIconImage.Create.AFormat">