일단 앨리어스를 생성합니다. 다음은 앨리어스를 생성하는 의사루틴입니다.

void __fastcall TXDemon::CreateLocalAlias()
{
   String Alias = ApplicationPath;

   Alias = ExtractFileDir(ApplicationPath) + "\\Data\\";

   if (!DirectoryExists(ExtractFileDir(Alias)))
   {
      CreateDirectory(Alias.c_str(), 0);
   }

   try
   {
      Session->AddStandardAlias("Mortalpain", Alias, "PARADOX");
      Session->SaveConfigFile();
   }
   catch (...)
   {
      MessageBox(Handle, "Error Creating Alias", "Error", 0);
      return;
   }
}

다음은 끝날때 앨리어스를 해제하는 루틴입니다.

void __fastcall TXDemon::DeleteLocalAlias()
{
   try
   {
      Session->DeleteAlias("Mortalpain");
      Session->SaveConfigFile();
   }
   catch (...)
   {
      MessageBox(Handle, "Error Deleting Alias", "Error", 0);
      return;
   }
}

다음은 테이블을 생성하는 의사 루틴입니다.

void __fastcall TXDemon::CreateListTable()
{
   TTable *table1, *table2;

   try
   {
      table1 = new TTable(this);

      table1->DatabaseName = "Mortalpain";
      table1->TableName    = "List.db";

      table1->FieldDefs->Add("ID", ftString, 4, true);
      table1->FieldDefs->Add("DomainName", ftString, 50, true);
      table1->FieldDefs->Add("LIST", ftString, 50, true);
      table1->FieldDefs->Add("Detail", ftString, 50, true);

      table1->IndexDefs->Add("", "ID", TIndexOptions() << ixUnique << ixPrimary);

      table1->CreateTable();

      table2 = new TTable(this);

      table2->DatabaseName = "Mortalpain";
      table2->TableName    = "Member.db";

      table2->FieldDefs->Add("ID", ftString, 8, true);
      table2->FieldDefs->Add("DomainName", ftString, 50, true);
      table2->FieldDefs->Add("LIST", ftString, 50, true);
      table2->FieldDefs->Add("MEMBER", ftString, 50, true);

      table2->IndexDefs->Add("", "ID", TIndexOptions() << ixUnique << ixPrimary);

      table2->CreateTable();
   }

   catch (...)
   {
      MessageBox(Handle, "Error Creating Tables", "Error", 0);
      delete table1, table2;
      return;
   }

   delete table1, table2;
}

뭐 데이터를 가지고 노는 것은 아시리라 믿습니다. 참고하세요.