Create an Access Database

 

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  AccessApp: Variant;
begin
  AccessApp := CreateOleObject('Access.Application');
  AccessApp.NewCurrentDatabase('c:\111.mdb');
  AccessApp := Unassigned;
end;