インデックス一覧を取得する procedure TForm1.Button3Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table idx: Variant;//Index i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat …