diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 0c3ba1e812..1c64ef1e94 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1172,13 +1172,13 @@ type
     procedure StepIt;
     procedure StepBy(Delta: Integer);
   public
-    property Max: Integer read GetMax write SetMax;
-    property Min: Integer read GetMin write SetMin;
+    property Max: Integer read GetMax write SetMax default 100;
+    property Min: Integer read GetMin write SetMin default 0;
     property Orientation: TProgressBarOrientation read FOrientation write SetOrientation default pbHorizontal;
     property Position: Integer read GetPosition write SetPosition default 0;
-    property Smooth : boolean read FSmooth write SetSmooth default false;
+    property Smooth : boolean read FSmooth write SetSmooth default False;
     property Step: Integer read FStep write SetStep default 10;
-    property BarShowText : boolean read FBarShowText write SetBarShowText;
+    property BarShowText : boolean read FBarShowText write SetBarShowText default False;
   end;
  
  
@@ -1676,10 +1676,10 @@ type
     property Max: Integer read FMax write SetMax default 10;
     property Min: Integer read FMin write SetMin default 0;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
-    property Orientation: TTrackBarOrientation read FOrientation write SetOrientation;
+    property Orientation: TTrackBarOrientation read FOrientation write SetOrientation default trHorizontal;
     property PageSize: Integer read FPageSize write SetPageSize default 2;
     property Position: Integer read FPosition write SetPosition;
-    property ScalePos: TTrackBarScalePos read FScalePos write SetScalePos;
+    property ScalePos: TTrackBarScalePos read FScalePos write SetScalePos default trTop;
     property TabStop default True;
     property TickMarks: TTickMark read FTickMarks write SetTickMarks default tmBottomRight;
     property TickStyle: TTickStyle read FTickStyle write SetTickStyle default tsAuto;
diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index f1143a402b..c2a730077b 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -224,7 +224,7 @@ type
     property PageList: TList read fPageList;
     property Pages: TStrings read fAccess write SetPages;
     property ShowTabs: Boolean read fShowTabs write SetShowTabs default True;
-    property TabPosition: TTabPosition read fTabPosition write SetTabPosition;
+    property TabPosition: TTabPosition read fTabPosition write SetTabPosition default tpTop;
   published
     property TabStop default true;
   end;
@@ -386,16 +386,16 @@ type
     property OnChangeBounds;
     property OnDragDrop;
     property OnDragOver;
-//    property OnEndDock;
+    property OnEndDock;
     property OnEndDrag;
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
     property OnPaint;
     property OnResize;
-//    property OnStartDock;
+    property OnStartDock;
     property OnStartDrag;
-    property Shape: TShapeType read FShape write SetShape;
+    property Shape: TShapeType read FShape write SetShape default stRectangle;
     property ShowHint;
     property Visible;
   end;
@@ -582,7 +582,7 @@ type
   public
     property Align;
     property AutoSize;
-    property Center: Boolean read FCenter write SetCenter;
+    property Center: Boolean read FCenter write SetCenter default False;
     property Constraints;
     property Picture: TPicture read FPicture write SetPicture;
     property Visible;
diff --git a/lcl/imglist.pp b/lcl/imglist.pp
index da40eb7000..85af342b1e 100644
--- a/lcl/imglist.pp
+++ b/lcl/imglist.pp
@@ -198,7 +198,7 @@ type
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
     property Masked: boolean read FMasked write SetMasked;
     property Reference: TWSCustomImageListReference read GetReference;
-    property ShareImages: Boolean read FShareImages write SetShareImages;
+    property ShareImages: Boolean read FShareImages write SetShareImages default False;
     property ImageType: TImageType read FImageType write FImageType default itImage;
   end;