procedure TForm1.Button2Click(Sender: TObject);
begin
  //Queryを閉じる
  Query1.Close;
  //SQLをクリア
　Query1.SQL.Clear;
  //SQL文を記述
　Query1.SQL.Add('SELECT * FROM CUSTOMER');
　if Edit1.Text <> '' then //STATEを入力したとき
　Query1.SQL.Add('WHERE STATE = ' + '''' + Edit1.Text + '''');
  //Queryを開く
　Query1.Open;
end;