[Ultras]

попробуйте так

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
var
  SQ: string;
begin
  if Query1.Active then Query1.Active := False;
  if CheckBox1.Checked then
  begin
    SQ := 'SELECT * from Strana where kont_id = 1'; //для примера
    // включение галочки
  end else
  begin
    // выключение галочки
    SQ := 'SELECT * from Strana where kont_id = 0'; //для примера
  end;
    Query1.SQL.Text := SQ;
    Query1.Active := True;
end;

а лучше написать функцию, которая будет собирать значения CheckBox'ов и строить запрос, тогда можно будет хоть 100 checkbox'ов влепить