Index: components/aggpas/src/agg_fpimage.pas
===================================================================
--- components/aggpas/src/agg_fpimage.pas	(revision 39867)
+++ components/aggpas/src/agg_fpimage.pas	(working copy)
@@ -382,7 +382,7 @@
     property Bold; // only windows
     property Italic; // only windows
     property Underline; // not supported
-    property StrikeTrough; // not supported
+    property StrikeThrough; // not supported
   end;
 
   { TAggFPPath }
@@ -3582,7 +3582,7 @@
   inherited SetFlags(5,NewBold); // Bold
   inherited SetFlags(6,NewItalic); // Italic
   inherited SetFlags(7,false); // Underline
-  inherited SetFlags(8,false); // StrikeTrough
+  inherited SetFlags(8,false); // StrikeThrough
 
   c:=TAggFPCanvas(Canvas);
 
Index: components/fpvectorial/fpvectorial.pas
===================================================================
--- components/fpvectorial/fpvectorial.pas	(revision 39867)
+++ components/fpvectorial/fpvectorial.pas	(working copy)
@@ -1,4 +1,4 @@
-{
+{
 fpvectorial.pas
 
 Vector graphics document
@@ -1198,7 +1198,7 @@
   ADest.Font.Bold := Font.Bold;
   ADest.Font.Italic := Font.Italic;
   ADest.Font.Underline := Font.Underline;
-  ADest.Font.StrikeTrough := Font.StrikeThrough;
+  ADest.Font.StrikeThrough := Font.StrikeThrough;
   {$ifdef USE_LCL_CANVAS}
   ALCLDest.Font.Orientation := Round(Font.Orientation * 16);
   {$endif}
Index: lcl/interfaces/customdrawn/customdrawnwinapi.inc
===================================================================
--- lcl/interfaces/customdrawn/customdrawnwinapi.inc	(revision 39867)
+++ lcl/interfaces/customdrawn/customdrawnwinapi.inc	(working copy)
@@ -1,4 +1,4 @@
-{%MainUnit customdrawnint.pp}
+{%MainUnit customdrawnint.pp}
 {******************************************************************************
   All CustomDrawn backend independent Winapi implementations.
 
@@ -4090,7 +4090,7 @@
   TM.tmBreakChar := '?';
   TM.tmItalic := Ord(lFont.Italic);
   TM.tmUnderlined := Ord(lFont.Underline);
-  TM.tmStruckOut := Ord(lFont.StrikeTrough);
+  TM.tmStruckOut := Ord(lFont.StrikeThrough);
 
   { Defaults to a TrueType font.
     Note that the meaning of the FIXED_PITCH constant is the opposite of
Index: lcl/lazcanvas.pas
===================================================================
--- lcl/lazcanvas.pas	(revision 39867)
+++ lcl/lazcanvas.pas	(working copy)
@@ -761,7 +761,7 @@
   Font.Bold := AFont.Bold;
   Font.Italic := AFont.Italic;
   Font.Underline := AFont.Underline;
-  Font.StrikeTrough := AFont.StrikeTrough;
+  Font.StrikeThrough := AFont.StrikeThrough;
 end;
 
 { TFPWindowsSharpInterpolation }