Table := CreateOleObject('ADOX.Table');
  Table.ParentCatalog := Catalog; // Catalog из предыдущего примера
  Table.Name := 'MyNewTable';
  Table.Columns.Append('Id'{имя поля},3 {adInteger - тип}, 4 {размер/длина});
  Table.Columns[0].Properties['Autoincrement'].Value := True; // создали счетчик
  Table.Columns.Append('MyTextField', 130 {adWChar}, 64); // создадим текстовое поле длиной 64 символа
  Table.Columns[1].Properties['Nullable'].Value := True; // может быть Null
  Table.Columns[1].Properties['Jet OLEDB:Compressed UNICODE Strings'].Value := True; // "сжатие UNICODE"
  Table.Columns[1].Properties['Jet OLEDB:Allow Zero Length'].Value := True; // "Пустые строки - Да"
  // теперь ключи/индексы  
  Index := CreateOleObject('ADOX.Index');
  Index.Name := 'PrimaryKey';
  Index.PrimaryKey := True;
  Index.Columns.Append('Id'); // это первичный ключ к счетчику Id
  Table.Indexes.Append(Index); // присобачили к таблице

  {Для индексированных полей без ключа - то же самое, только Index.PrimaryKey := False;}
//  Ну и последнее не забыть:

  Catalog.Tables.Append(Table);