データベースを作成する procedure TForm1.Button5Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database const dbLangJapanese:string = ';LANGID=0x0411;CP=932;COUNTRY=0'; dbVersion20: Integer = 16; // Access 2.0 dbVersion30: I…