Вообще то проблем с этим не было...
В SERVER NAME указываешь псевдоним из tns и видишь ту базу которая в этой ветке указана...

Удачи.

В догонку...

Для начала можно настроить SQL Explorer и посмотреть объекты БД...

До кучи пример соединения с базой:

DBOracle, компонент TDatabase.

if(DBOracle->Connected)
DBOracle->Connected=false;

DatabaseName = Локальный псевдоним приложения (например MyDB)
DriverName =Oracle
Можно добавить в этот блок:

DBOracle->Params->Clear();
DBOracle->Params->Add("BATCH COUNT=200");
DBOracle->Params->Add("BLOB SIZE=32");
DBOracle->Params->Add("BLOBS TO CACHE=64");
DBOracle->Params->Add("ENABLE BCD=FALSE");
DBOracle->Params->Add("ENABLE INTEGERS=FALSE");
DBOracle->Params->Add("ENABLE SCHEMA CACHE=FALSE");
DBOracle->Params->Add("MAX ROWS=-1");
DBOracle->Params->Add("ROWSET SIZE=0");
DBOracle->Params->Add("SCHEMA CACHE DIR=");
DBOracle->Params->Add("SCHEMA CACHE SIZE=8");
DBOracle->Params->Add("SCHEMA CACHE TIME=-1");
DBOracle->Params->Add("SQLPASSTHRU MODE=SHARED AUTOCOMMIT");
DBOracle->Params->Add("SQLMODE=");
DBOracle->Params->Add("USER NAME="+cUserName);
DBOracle->Params->Add("PASSWORD="+cPassWord);
DBOracle->Params->Add("SERVER NAME="+cNameDB);
DBOracle->KeepConnection=true;
DBOracle->Connected=true;

Переменные AnsiString cUserName,cPassWord,cNameDB
заполняются на форме при проверке аторизации.

OK!