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 MDB.
Para importar la librería seguimos los pasos:
(1) Menu Project/Import Type Librery.
(2) Buscar la librería: "Microsoft ADO Ext. 2.X for DDL and Security".
(3) Pulsa "Create Unit".
Una vez generador el fichero, utilizar el siguiente código:
Código Delphi
[-]
const
DATABASENAME = 'c:\temp\BaseDatosNueva.mdb';
var
Catalog: _Catalog;
ConnectionString:String;
begin
Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DATABASENAME;
try
Catalog.Create(ConnectionString);
except
on E:EOLEException do begin
MessageDlg('Error al crear la Base de Datos; Mensaje:' + E.Message, mtError, [mbOK], 0);
end;
end;