クエリーを作成する procedure TForm1.Button7Click(Sender: TObject); var cat: Variant;//Catalog cmd: Variant;//Command sql: string; begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnection := 'Provide…