Código Delphi [-]
 
procedure TfrmEmpresas.CrearMDB(ruta: string);
var
  Catalogo:_Catalog;
  Tabla:_Table;
  DS:String;
begin
    Catalogo:=CreateComObject(StringToGUID('ADOX.Catalog')) as _Catalog;
    DS:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source = '+ruta;
    if FileExists(ruta) then DeleteFile(ruta);
    Catalogo.Create(DS);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Acabados';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',varInteger,4);
    Tabla.Columns.Append('Descripcion',adVarWChar,50);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Articulos';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',adVarWChar,15);
    Tabla.Columns.Append('Descripcion',adVarWChar,255);
    Tabla.Columns.Append('Coste',varInteger,255);
    Tabla.Columns.Append('Venta',varInteger,255);
    Tabla.Columns.Append('Tipo',varInteger,255);
end;

Código Delphi [-]
...
          
           Col := CreateOLEObject('ADOX.Column');
          Col.ParentCatalog := Cat;
          Col.Name := sKey;
          Col.Type := adInteger;
          Col.Properties('Autoincrement') := True;
          Table.Columns.Append(Col);

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Catalog  : _Catalog;
  Table    : _Table;
  BaseName : String;
  DS       : String;
  col      : _Column;
  key      : _Key;
begin
  // Nombre de la Base de Datos
  BaseName := 'C:\Temp\MiBaseDatos.mdb';
  // Create a Catalog Object
  Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
  // Set the Connection String
  DS := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+BaseName;
  // Check if we already have such a file and delete it
  If FileExists(BaseName) Then begin
    DeleteFile(BaseName);
  end;

  // Create new Access database
  Catalog.Create(DS);

  // Create a Table Object
  Table := CreateCOMObject(StringToGUID('ADOX.Table')) as _Table;
  // Set the name of a table
  Table.Name := 'MiTabla';
  // Append Table into the base
  Catalog.Tables.Append(Table);
  // Now add two columns (fields) into the table
  // Both are Text fields up to 128 characters
  Table.Columns.Append('Nombre', adVarWChar, 128);
  Table.Columns.Append('Apellido', adVarWChar, 128);

  // Creamos el objeto columna para el autoIncremental
  col := CoColumn.Create;
  // BD a la que pertenece
  col.ParentCatalog := Catalog;
  col.Name := 'Auntoincremental';
  // Tipo del campo
  col.Type_ := adInteger;
  // Asignamos que es un AutoIncremental
  col.Properties['AutoIncrement'].Value := True;
  // Añadimos la columna
  Table.Columns.Append(col, adInteger, col.DefinedSize);

  // Columna para la clave primaria
  col := CoColumn.Create;
  // BD a la que pertenece
  col.ParentCatalog := Catalog;
  col.Name := 'ClavePrimaria';
  col.Type_ := adInteger;
  // Añadirla
  Table.Columns.Append(col, adInteger, col.DefinedSize);

  // Creamos la clave primaria
  Key := CoKey.Create;
  Key.Name := 'ClavePrimaria';
  Key.Type_ := adKeyPrimary;
  // Columna que forma parte de la PK
  Key.Columns.Append('ClavePrimaria', adInteger, 0 );
  // Añadirla a la tabla
  Table.Keys.Append(Key, 0, EmptyParam, Unassigned, Unassigned);
end;