🚀 go-pugleaf

Source code follows explanation.

When My application runs and while assigning a TDatabase property whithin a
BPL, I get this error message:

Project ProjectName.exe raised exception class EDatabaseError with message
'Duplicate database name 'DatabaseName' ' . Process stopped. Use Step or Run
to continue.

What could be the cause of the problem?

AnsiString GetCaptionWithTag(int intLang, int intTag)
{
    AnsiString strCaption = "";
    TQuery *qryGetCaption = new TQuery(NULL);
    TDatabase *dbGetCaption = new TDatabase(NULL);

    // Set dbParams alias and login prompt false
    dbGetCaption->DatabaseName = "Gestico";
    dbGetCaption->LoginPrompt = false;

    // Set qryParams alias
    qryGetCaption->DatabaseName = "Gestico";

    // Make sure that query is closed
    qryGetCaption->Close();

    // Set SQL select
    qryGetCaption->SQL->Clear();

    // Select field depending on language
    switch(intLang)
    {
        case mintENGLISH:
        {
            qryGetCaption->SQL->Add("SELECT Cap_String_Eng AS Caption");
            break;
        }
        case mintFRENCH:
        {
         qryGetCaption->SQL->Add("SELECT Cap_String_Fre AS Caption");
            break;
        }
        default:;
    }

    qryGetCaption->SQL->Add("FROM Captions");
    qryGetCaption->SQL->Add("WHERE Cap_NRI = :Tag");
    qryGetCaption->Params->Items[0]->AsInteger = intTag;

    // Prepare and open query
    if(!qryGetCaption->Prepared)
    {
        qryGetCaption->UniDirectional = true;
        qryGetCaption->Prepare();
    }

    // Open query
    qryGetCaption->Open();

    // Get caption if exists
    if(!qryGetCaption->Eof)
        strCaption = qryGetCaption->FieldByName("Caption")->AsString;
    else
        strCaption = "zError" + intTag;

    // Close query
    qryGetCaption->Close();

    // Delete TDatabase and Tquery components
    delete dbGetCaption;
    delete qryGetCaption;

    return strCaption;
}