Problem z checkBox'ami

 Rejestr.RootKey:=(HKEY_CURRENT_USER);
 Rejestr.OpenKey('Software\Start Page IE',False);
 if Rejestr.ReadString('Autostart')='True' then
 Begin
  CheckBox1.Checked:=true;
  CheckBox4.Enabled:=true;
 End
 Else
 Begin
  CheckBox1.Checked:=false;
 End;
 if Rejestr.ReadString('Autoskanowanie')='True' then
 Begin
  CheckBox2.Checked:=true;
 End
 Else
 Begin
  CheckBox2.Checked:=false;
 End;
 if Rejestr.ReadString('Autonaprawa')='True' then
 Begin
  CheckBox3.Checked:=true;
 End
 Else
 Begin
  CheckBox3.Checked:=false;
 End;

 if Rejestr.ReadString('Autostart')='True' then
 begin
  CheckBox1.Checked:=true;
  CheckBox4.Enabled:=true;
 end
 else
 begin
  CheckBox1.Checked:=false;
 end;

CheckBox1.Checked:=Rejestr.ReadString('Autostart')='True';
CheckBox4.Enabled:=not CheckBox1.Checked;

Procedure TForm1.FormCreate(Sender: TObject);
Var R:TRegistry;
    I:Integer;
Begin
  R:=TRegistry.Create;
  R.RootKey:=(HKEY_CURRENT_USER);
  R.OpenKey('Software\MyApp',True);
  For I:=0 To ComponentCount-1 Do
    If Components[I] Is TCheckBox Then
      Try
        TCheckBox(Components[I]).Checked:=R.ReadBool(Components[I].Name);
      Except
        on Exception Do;
      End;
  R.Free;
End;

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var R:TRegistry;
    I:Integer;
Begin
  R:=TRegistry.Create;
  R.RootKey:=(HKEY_CURRENT_USER);
  R.OpenKey('Software\MyApp',True);

  For I:=0 To ComponentCount-1 Do
    If Components[I] Is TCheckBox Then
      R.WriteBool(Components[I].Name,TCheckBox(Components[I]).Checked);
  R.Free;
End;