フィールドの説明を設定する procedure TForm1.Button9Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table col: Variant;//Column begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnect…