BDE как настроить на другом ПК

Table1->DatabaseName = "Proects";
Table1->TableName ="C:\\Proects\\Otdel.db";
Table1->Active = true;
Database1->DatabaseName= "Proects";
  Database1->DriverName= "STANDARD";
  Database1->Params->Clear;
  Database1->Params->Add("PATH=C:\\Proects\\Otdel.d");
  Table1->DatabaseName= "Proects";

Database1->Params->Add("PATH=C:\\Proects\\Otdel.db");

ExePath = GetCurrentDir(); // при создании прил.
Session1->Active = false;
ShellExecute(NULL,"open",(ExePath+"\\BDE\\bdeadmin.exe").c_str(),NULL,NULL,SW_HIDE);
Session1->SessionName = "session1";
Session1->AddAlias("MyAlias","STANDARD",Memo1->Lines);
Session1->PrivateDir = ExePath+"\\data";
Session1->NetFileDir = "C:\\";
Table1->DatabaseName = "MyAlias";
Table1->TableName = ExePath+"\\data\\table.db";
Table1->Active = true;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
String ExePath;
ExePath = GetCurrentDir(); // при создании прил.
Session1->Active = false;
ShellExecute(NULL,"open",(ExePath+"\\BDE\\bdeadmin.exe").c_str(),NULL,NULL,SW_HIDE);
Session1->SessionName = "session1";
Session1->AddAlias("ProectMoy","STANDARD",Memo1->Lines); // указание на это вырожение, но Алиас правильный
Session1->PrivateDir = ExePath+"\\ProectMoy";
Session1->NetFileDir = "C:\\";
Table1->DatabaseName = "ProectMoy";
Table1->TableName = ExePath+"\\ProectMoy\\Otdel.db";
Table1->Active = true;
}

Session->GetAliasNames()