[Zhigalov]

На форме имеется 4 ЧекБокса. При лоткрытии программы состояние всех ЧекБоксов = Тру. На конпочку.

Код:

Var
ch1,ch2,ch3,ch4:String;
begin
ch1:='SELECT SimpleTime,Chann01 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
Ch2:='SELECT SimpleTime,Chann01,Chann02 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';
Ch3:='SELECT SimpleTime,Chann01,Chann02,Chann03 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ' ;
Ch4:='SELECT SimpleTime,Chann01,Chann02,Chann03,Chann04 FROM RGBTEC4.dbo.Data_25010_4_0_8  where SimpleTime between :Param1 and :Param2 ';

 Button3.Visible:=True;
 DataModule2.QueryGRP.Close;
 DateTimePicker1.time:=DateTimePicker2.time;
 DateTimePicker3.time:=DateTimePicker4.time;

 If CheckBox1.Checked = True and CheckBox2.Checked = True and  CheckBox3.Checked = True and CheckBox4.Checked = True then
 DataModule2.QueryGRP.SQL.Text:=Ch4;

 If CheckBox1.Checked = True and CheckBox2.Checked = True and  CheckBox3.Checked = True then
     DataModule2.QueryGRP.SQL.Text:=Ch3;

Как сделать правильно условие? Чтоб если 3 галочки активны то выполняется запрос Ch3 если две галочки активны то запрос Ch2 итд. Не как не могу додуматс че то.