データベースを作成する procedure TForm1.Button5Click(Sender: TObject); var cat: Variant;//Catalog begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edi…