Странное поведение функций

 // Use double backslash in Windows Paths as the backslash character (\) must be escaped with another one to be treated literally.
    SQLConnection1->Params->Add("Database=full_path_to_your_database_file");
    try
    {
        // Establish the connection.
        SQLConnection1->Connected = true;
        executeButton->Enabled = true;
        outputMemo->Text = "Connection established!";
    }
    catch (EDatabaseError& E)
    {
       ShowMessage("Exception raised with message" + E.Message);
    }

SQLConnection1->Params->Add("Database=game_data");

TList *my_connection_list = new TList;

    String query = "SELECT * FROM connections;";
    TStringList* names;  
    TField* currentField; 
 
 
    my_connection_list->Clear();
    try
    {
        // Assign the query to the object SQLQuery1.
         SQLQuery1->SQL->Text = query;
         SQLQuery1->Active = true;
    }
    catch (Exception& E)
    {
        Memo1->Text = "Exception raised with message" + E.Message;
    }
 
    if (!SQLQuery1->IsEmpty())
    {
        SQLQuery1->First();
        names = new TStringList;
        SQLQuery1->GetFieldNames(names);
        while (!SQLQuery1->Eof)
        {
            myConnection *tmp_con = new myConnection;
 
            currentField = SQLQuery1->FieldByName(names->Strings[1]);
            tmp_con->connection_name = currentField->AsString;
// и еще 10 полей
 
            my_connection_list->Add(tmp_con);
         SQLQuery1->Next();
        }
 
    }

    
String query = "SELECT * FROM rooms;";
    TStringList* names; 
    TField* currentField; 
 
    my_connection_list->Clear();
    try
    {
        // Assign the query to the object SQLQuery1.
         SQLQuery1->SQL->Text = query;
         SQLQuery1->Active = true;
    }
    catch (Exception& E)
    {
        Memo1->Text = "Exception raised with message" + E.Message;
    }
 
    if (!SQLQuery1->IsEmpty())
    {
        SQLQuery1->First();
        names = new TStringList;
        SQLQuery1->GetFieldNames(names);
        while (!SQLQuery1->Eof)
        {
            myRoom *tmp_room = new myRoom;
 
            currentField = SQLQuery1->FieldByName(names->Strings[1]);
            tmp_room->connection_count = StrToInt(currentField->AsString);
// И еще несколько
            my_room_list->Add(tmp_room);
 
         SQLQuery1->Next();
        }
 
    }

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    SetAllPositions(); //Расставляет компоненты (срабатывает)
    ConnectToDB(); // Подключается к БД (срабатывает)
    LoadConnections(); // Загружает из 1й таблицы ([B]не срабатывает[/B])
    LoadRooms(); // Загружает из 2й таблицы (срабатывает)
    ShowFirstRoom(); // выдает ошибку при попытке обратиться к (myConnection*)my_connection_list->Items[1], потому что там пусто.
}

    UnicodeString tmp_path_name = System::Ioutils::TPath::GetDocumentsPath();
    SQLConnection1->Params->Add("Database="+tmp_path_name+"/game_data");
 
    try
    {
        // Establish the connection.
        SQLConnection1->Connected = true;
        Memo1->Text = "Connection established!";
    }
    catch (EDatabaseError& E)
    {
       ShowMessage("Exception raised with message" + E.Message);
    }