Table1->Close();
 Table1->DatabaseName = Base_Dir;
 Table1->TableName = "t1.dbf";

   //тип таблицы - ttDBase
   Table1->TableType = ttDBase;
   //очистим описание полей таблицы
   Table1->FieldDefs->Clear();

   //указатель на обект описания поля
   TFieldDef *pNewDef;
  
//описание полей
   pNewDef = Table1->FieldDefs->AddFieldDef();
   pNewDef->Name = "TDATE";
   pNewDef->DataType = ftDate;

   pNewDef = Table1->FieldDefs->AddFieldDef();
   pNewDef->Name = "FIO";
   pNewDef->DataType = ftString;
   pNewDef->Size =  25 ;

   pNewDef = Table1->FieldDefs->AddFieldDef();
   pNewDef->Name = "RASCEN";
   pNewDef->DataType = ftFloat;  //???
   pNewDef->Size =  6 ;
   pNewDef->Precision =  2 ;

   //создание таблицы
   Table1->CreateTable();