インデックスを作成する procedure TForm1.Button8Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table idx: Variant;//Index begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnection :…