diff --git a/components/datetimectrls/datetimepicker.pas b/components/datetimectrls/datetimepicker.pas
index f6312a7705..65f06a6470 100644
--- a/components/datetimectrls/datetimepicker.pas
+++ b/components/datetimectrls/datetimepicker.pas
@@ -3881,8 +3881,8 @@ end;
 
 procedure TCustomDateTimePicker.DoAutoCheck;
 begin
-  if ShowCheckBox and not Checked and (dtpoAutoCheck in Options) then
-    Checked := True;
+  if dtpoAutoCheck in Options then
+    SetChecked(True);
 end;
 
 procedure TCustomDateTimePicker.DoAutoAdjustLayout(