delphi ile access veri dosyası oluşturmak ( mdb )

uses comobj,sysutils;

function CreateAccessDatabase(FileName : String) : String;
var cat : OLEVariant;
begin
result := '';
try
  cat := CreateOleObject('ADOX.Catalog');
  cat.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Filename+';');
  cat := NULL;
except
  on e : Exception do result := e.message;
end;
end;

Murat abi Yine Kendi Yöntemini Kurmuşsun.Belki AccsessApplication  Nesnesini algoritmasda bu şekildedir