削除する void __fastcall TForm1::Button13Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->