[Zhigalov]

Код:

    Tag:=0;
  Tag:=Tag+Integer(CheckBox1.Checked);
  Tag:=Tag+Integer(CheckBox2.Checked);
  Tag:=Tag+Integer(CheckBox3.Checked);
  Tag:=Tag+Integer(CheckBox4.Checked);
  case Tag of
    0: DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2';
    1: DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime,Chann01 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
    2: DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime,Chann01,Chann02 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
    3: DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime,Chann01,Chann02,Chann03 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
    4: DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime,Chann01,Chann02,Chann03,Chann04 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
  end;

Как то не правельно работает. Если все CheckBox =True,False. Работает нармально. А если я дапустим хочу Посмотреть тока 3 то уже не работает.
Как то может я не правильно сам с смого начала написал. Есть всего CheckBox1.2.3.4 . Тоесть при отключении их Должно оставоатся тока то что включено. Дапустим если я отключил CheckBox1.2.4 то остатся должен тока CheckBox3

Тоесть если CheckBox3=True остальные False то должно показать данные chann03. CheckBox2.3=True остальные False то должно показать данные chann03.02