次に[実行]ボタンクリック時(ButtonのOnClickイベント)に次のようにコードを記述します。
procedure TForm1.Button1Click(Sender:TObject); begin Query1.Open; end;
