Tip1

Para hacer ésto hay que importar primera la librería de ADO desde Delphi, que nos permita generar el fichero ADOX_TLB, que necesitamos para crear el fichero MDB.

Para importar la librería seguimos los pasos:

Menu Project/Import Type Library.
Buscar la librería: "Microsoft ADO Ext. 2.X for DDL and Security".
Pulsa "Create Unit".

Una vez generador el fichero, utilizar el siguiente código:

const
 DATABASENAME = 'c:\temp\BaseDatosNueva.mdb';
var
 Catalog: _Catalog;
 ConnectionString:String;
begin
 // Create a Catalog Object
 Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
 // Set the Connection String
 ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DATABASENAME;
 try
 // Create new Access database
  Catalog.Create(ConnectionString);
 except
 on E:EOLEException do begin
  // Levantamos la excepción
  MessageDlg('Error al crear la Base de Datos; Mensaje:' + E.Message, mtError, [mbOK], 0);
 end;
end;