フィールド一覧を取得する procedure TForm1.Button2Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table col: Variant;//Column i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat :…