diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index d139fdaf3e..2a6268002b 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -833,6 +833,7 @@ Type
     property AutoDisplay: Boolean read FAutoDisplay write SetAutoDisplay default True;
     property BorderSpacing;
     property BorderStyle;
+    property CharCase;
     property Color;
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index 53e8acf97b..59d0e93d2a 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -898,6 +898,7 @@ type
     property BidiMode;
     property BorderSpacing;
     property BorderStyle;
+    property CharCase;
     property Color;
     property Constraints;
     property DragCursor;