diff --git a/lcl/controls.pp b/lcl/controls.pp
index 654f6252b7..f258bff64e 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1025,7 +1025,7 @@ type
     property DragMode: TDragMode read fDragMode write SetDragMode default dmManual;
     property MouseCapture: Boolean read GetMouseCapture write SetMouseCapture;
     property ParentFont: Boolean  read FParentFont write FParentFont;
-    property ParentColor: Boolean  read FParentColor write SetParentColor;
+    property ParentColor: Boolean read FParentColor write SetParentColor default true;
     property ParentShowHint: Boolean read FParentShowHint write SetParentShowHint default True;
     property SessionProperties: string read FSessionProperties write FSessionProperties;
     property Text: TCaption read GetText write SetText;