both checkboxes reflect the same property

test/test_progressbar/umain.lfm

@@ -427,8 +427,6 @@ object Form1: TForm1
     Top = 296
     Width = 80
     Caption = 'Show Timer'
-    Checked = True
-    State = cbChecked
     TabOrder = 16
     OnChange = cbCaptionPercentChange
   end

test/test_progressbar/umain.pas

@@ -139,6 +139,10 @@ end;
 
 procedure TForm1.cbCaptionPercentChange(Sender: TObject);
 begin
+  if Sender = cbCaptionPercent then
+    cbCaptionPercent1.Checked := cbCaptionPercent.Checked
+  else
+    cbCaptionPercent.Checked := cbCaptionPercent1.Checked;
   BGRAMaxMProgress.CaptionShowPercent:= cbCaptionPercent.Checked;
 end;