[実行]ボタンのOnClickイベントでQuery1をActiveにしているところをClientDataSetに変えます。