Как поставить галочку в CheckBox, если в реестре стоит значение =1 ?

Reg := TRegistry.Create;
reg := TRegistry.Create(KEY_WRITE or KEY_WOW64_64KEY);
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\services\usbhub\hubg',true);
reg.WriteInteger('DisableOnSoftRemove',1);
reg.CloseKey;

  reg:=TRegistry.Create(KEY_WRITE or KEY_READ or KEY_WOW64_64KEY); // Здесь добавить KEY_READ
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SYSTEM\CurrentControlSet\services\usbhub\hubg', false);
  try
    CheckBox1.Checked := reg.ReadBool('DisableOnSoftRemove');
  except
    CheckBox1.Checked := false; // Или true, смотря что вам нужно по умолчанию.
  end;
  reg.CloseKey;
  reg.Free;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
  success: boolean;
const
  key = 'Software\0';
  name = 'DisableOnSoftRemove';
begin
  success:= false;
  try
    reg:= TRegistry.Create();
    try
      reg.RootKey:= HKEY_CURRENT_USER;
      if not reg.KeyExists(key)
        then exit;
      
      success:= reg.OpenKey(key, false);
      
      if reg.ValueExists(name)
        then CheckBox1.Checked := reg.ReadBool(name);
    finally
      if success
        then reg.CloseKey();
      reg.Free();
    end;
  except on E: Exception do
    ShowExceptionDlg(E); // вывод причины ошибки
  end;
end;

  reg.WriteInteger('DisableOnSoftRemove',0);
  reg.WriteBool('DisableOnSoftRemove1', CheckBox1.Checked);
  Reg.DeleteValue('DisableOnSoftRemove1');

var
  v: dword;
begin
  v := 1; // Default value
  RegGetDWORD(HKEY_CURRENT_USER, 'Software\0\DisableOnSoftRemove', v);
  CheckBox1.Checked := v <> 0;
end;

var
  v: dword;
begin
  v := 1; // Default value
  if RegGetDWORD(HKEY_CURRENT_USER, 'Software\0\DisableOnSoftRemove', v) then
    CheckBox1.Checked := v <> 0
  else
    CheckBox1.State := cbGrayed;