for(int j=0;j< ADOTable1->FieldCount;j++) // список полей таблицы i
    {
      fn= ADOTable1->Fields->Fields[j]->FieldName;
//      AnsiString s1=ADOTable1->MasterFields;
      ft= ADOTable1->Fields->Fields[j];
AnsiString s1=ft->KeyFields;
      if(j== ADOTable1->FieldCount-1)   s=s+fn+" "+FieldTypeToString(ft); else
      s=s+fn+" "+FieldTypeToString(ft)+",";
      if(str1.Length()>0){str1+=",";str2+=",";}
      str1+=fn;
      str2=str2+":"+fn;
    }
  AnsiString kfld= ADOTable1->Fields->Fields[0]->KeyFields;
    if(kfld.Length()>0)
      s+=", primary key("+kfld+")";
        else s+=")";
     ADOQuery2->SQL->Text=s;
     ADOQuery2->ExecSQL();     // создание таблиц полей в новой базе
     ADOTable1->First();