Сохранить и извлеч данные

reg->WriteString("MyName","Nitan");

reg->WriteString("Label","Caption");

reg->WriteString("Caption",Label1->Caption);

ChekBox1->Checked
HotKey1->HotKey

ChekBox1->Checked

int(ChekBox1->Checked)

// Сохраняем CheckBox4->Checked в реестре
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
if (reg) {
TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
reg->RootKey=HKEY_CURRENT_USER;  //Для начала необходимо указать раздел, с которым мы будем работать
reg->OpenKey("Software\\Project1\\Check",true); //Мы создали ключ, если же такой ключ уже существовал
reg->WriteInteger("Box4Check", 1 );// записали параметр
reg->CloseKey();   //Закрываем ключ
delete reg;       //Освобождаем память
reg = NULL;}      // закончили запись в реестр

// Считываем CheckBox4 с реестра
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
if (reg) {
TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
reg->OpenKeyReadOnly("Software\\Project1\\Check"); //Теперь открываем ключ для чтения 
  // Далее в трех строчках запутался
bool  test; 
test=reg->ReadInteger("Box4Check");   //Заносим значение, указан при этом нужный нам параметр
CheckBox4->Checked = (test);
 
reg->CloseKey();   //Закрываем ключ
delete reg; //Освобождаем память
reg = NULL;} // закончили считывание

void __fastcall TForm1::FormCreate(TObject *Sender)
Label1
Label2
Label3
CheckBox2
CheckBox3
CheckBox4

TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
if (reg) {
TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
reg->OpenKeyReadOnly("Software\\Password"); //Теперь открываем ключ для чтения 
AnsiString test;
test=reg->ReadString("Caption");   //Заносим значение, указан при этом нужный нам параметр
Label27->Caption = (test); // записываем в лабел пароль
reg->CloseKey();   //Закрываем ключ
delete reg; //Освобождаем память
 
}
 
if (reg) {
TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
reg->OpenKeyReadOnly("Software\\Check"); //Теперь открываем ключ для чтения 
 
bool  tes; // Вот здесь явно ошибка
tes=reg->ReadInteger("Box4Check");   //Заносим значение, указан при этом нужный нам параметр
CheckBox4->Checked = (tes);
 
reg->CloseKey();   //Закрываем ключ
delete reg; //Освобождаем память
reg = NULL;} // закончили считывание

AnsiString test;
bool tes; // Вот здесь явно ошибка
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
 
if (reg) {
// TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
  reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
  reg->OpenKeyReadOnly("Software\\Password"); //Теперь открываем ключ для чтения 
  test=reg->ReadString("Caption");   //Заносим значение, указан при этом нужный нам параметр
  Label27->Caption = test; // записываем в лабел пароль
// reg->CloseKey();   //Закрываем ключ
// delete reg; //Освобождаем память
// }
// if (reg) {
// TRegistry *reg=new TRegistry(); //Создали обьект reg класса TRegistry
// reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
  reg->OpenKeyReadOnly("Software\\Check"); //Теперь открываем ключ для чтения 
// bool tes; // Вот здесь явно ошибка
// не пробовал записать WriteBool и теперь уже читать
// tes=reg->ReadBool("Box4Check"); ?
  tes=reg->ReadInteger("Box4Check"); //Заносим значение, указан при этом нужный нам параметр
  CheckBox4->Checked = tes;
// или, если писал integer - 
//  int checkcheck = reg->ReadInteger("Box4Check");
//  CheckBox4->Checked = checkcheck;
}
reg->CloseKey();   //Закрываем ключ
delete reg; //Освобождаем память
reg = NULL;} // закончили считывание

reg = NULL; // закончили считывание

if (reg->ValueExists("Caption") == 1)
  test=reg->ReadString("Caption");

[BCC32 Error] Unit1.cpp(227): E2238 Multiple declaration for 'reg'
[BCC32 Error] Unit1.cpp(214): E2344 Earlier declaration of 'reg'

    // Считываем пароль с реестра
    TRegistry *reg = new TRegistry(); // ПОДСВЕТКА ОШИБКИ 2
    reg->RootKey=HKEY_CURRENT_USER;
    reg->OpenKey("Software\\Password\\",true);
    AnsiString test;
    if (reg->ValueExists("Caption") == 1) {
    test=reg->ReadString("Caption");
    Label27->Caption = (test); }
    reg->CloseKey();
    reg = NULL;
 
    //------------------------------
 
    // Считываем CheckBox4 с реестра
    TRegistry *reg = new TRegistry();   // ПОДСВЕТКА ОШИБКИ 1
    reg->RootKey=HKEY_CURRENT_USER;
    reg->OpenKey("Software\\Box\\Check4",true);
    bool  tes;
    if (reg->ValueExists("Box4Check") == 1) {
    tes=reg->ReadInteger("Box4Check");
    CheckBox4->Checked = (tes); }
    reg->CloseKey();
    reg = NULL;

if (reg->ValueExists("Caption"))