1   unit Unit1;
2   
3   interface
4   
5   uses
6     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7     Dialogs, StdCtrls,ComObj;
8   
9   type
10    TForm1 = class(TForm)
11      Button1: TButton;
12      procedure Button1Click(Sender: TObject);
13    private
14      { Private declarations }
15    public
16      { Public declarations }
17    end;
18  
19  var
20    Form1: TForm1;
21  
22  implementation
23  
24  {$R *.dfm}
25  procedure CreateMSAccessDB(filename: string);
26  var  
27    oleDB: OLEVariant; 
28  begin 
29   try 
30    oleDB := CreateOleObject('ADOX.Catalog'); 
31    oleDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';'); 
32    oleDB := NULL; 
33   except  on e: Exception do
34    showmessage( e.message);
35   end;
36  end;
37  
38  procedure TForm1.Button1Click(Sender: TObject);
39  begin
40   CreateMSAccessDB('c:\test.mdb');
41  end;
42  
43  end.