テーブル一覧を取得する procedure TForm1.Button1Click(Sender: TObject); var cat: Variant;//Catalog i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat := CreateOleObject('ADOX.Catalog'); //Edit3 に…