フィールド一覧を取得する procedure TForm1.Button2Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef fd:Variant;//Field i :Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2…