Как узнать все БД, к которым обращается программа?

void __fastcall TForm1::DBGrid1KeyPress(TObject *Sender, char &Key)
{    if(Key=='\\\')
    {
        TADOTable *at;
        TADOQuery *aq;
        AnsiString s;

        if((at = dynamic_cast <TADOTable*>(DBGrid1->DataSource->DataSet)) != NULL)
            s =   AnsiString("ADOTable->Connection->ConnectionString =\"")
                + at->Connection->ConnectionString
                + AnsiString("\"\r\n")
                + AnsiString("ADOTable->ConnectionString =\"")
                + at->ConnectionString + AnsiString("\"");

        if((aq = dynamic_cast <TADOQuery*>(DBGrid1->DataSource->DataSet)) != NULL)
            s =   AnsiString("ADOQuery->Connection->ConnectionString =\"")
                + aq->Connection->ConnectionString
                + AnsiString("\"\r\n")
                + AnsiString("ADOQyery->ConnectionString =\"")
                + aq->ConnectionString + AnsiString("\"");

        Application->MessageBoxA(s.c_str(),(Application->Title + AnsiString(" Test")).c_str(), MB_OK | MB_ICONINFORMATION);
    }
}