Изменяю Connection String, а оно все равно берет данные из старого источника

void __fastcall TMain::Setup()    // начальная настройка программы
{
    if (Settings->ConnectionString->Text.IsEmpty())
    {
        Trace("Пустая строка соединения");
        ComboBox1->Enabled = false;
    }
    else
    {
        ADOConnection1->ConnectionString = Settings->ConnectionString->Text;
        ADOConnection1->Open();
       //здесь дальше пошел код
    }
}
 
//---------------------------------------------------------------------------------------------------------
 
void __fastcall TSettings::GetData()  // начальная настройка программы
{
    TRegistry *Registry = new TRegistry(KEY_ALL_ACCESS);
    try
    {
        Registry->RootKey = HKEY_LOCAL_MACHINE;
        Registry->OpenKey("\\Software\\SID",true);
        ConnectionString->Text = Registry->ReadString("ConnectionString");
        FTPPath->Text = Registry->ReadString("FTPPath");
    }
    __finally
    {
        delete Registry;
    }
}
 
//----------------------------------------------------------------------------------------------------------------
 
void __fastcall TSettings::SaveClick(TObject *Sender)
{
            TRegistry *Registry = new TRegistry(KEY_ALL_ACCESS);
        try
        {
            Registry->RootKey = HKEY_LOCAL_MACHINE;
            Registry->OpenKey("\\Software\\SID",true);
            Registry->WriteString("ConnectionString", ConnectionString->Text);
            Registry->WriteString("FTPPath", FTPPath->Text);
        }
        __finally
        {
            delete Registry;
        }
        Saved = true;
        Close();
 }