欲以程式建立 Access 資料庫，你可以使用 OLE 的方式：

Uses ComObj;

procedure CreatAccessDB(const FileName: String); 
var 
  DBEngine, Workspace: Variant; 
const 
  {Important to use the following constant as is} 
  dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0'; 
  dbVersion30 = 32; 
begin 
  DBEngine := CreateOleObject('DAO.DBEngine.35'); //For DAO 3.5 
  Workspace := DBEngine.Workspaces[0]; 
  try 
    Workspace.CreateDatabase(FileName, dbLangGeneral, dbVersion30); 
  except on EOleException do 
    ShowMessage('Database already exists'); 
  end; 
end; 

或者使用 Type Library 的方式：

Uses DAO_TLB;

{ Create Access database with DAO }
procedure DaoCreateAccessDB(const FileName: string);
const
  {Important to use the following constant as is}
  dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
  dbVersion30 = 32;
var
  DBEngine: TDBEngine;
  ws: Workspace;
begin
  DBEngine := TDBEngine.Create(nil);
  ws := DBEngine.Workspaces[0];
  if FileExists(FileName) then
    DeleteFile(FileName);
  try
    ws.CreateDatabase(FileName, dbLangGeneral, dbVersion30);
    DBEngine.Free;
  except
    DBEngine.Free;
    raise;
  end;
end;