CheckBox отсеивание

[xrob]

procedure TForm2.sCheckBox1Click(Sender: TObject);
var s:string;
begin
s:='';
if sCheckBox1.Checked then s:=s+'1';
if sCheckBox2.Checked then s:=s+',2';
if sCheckBox2.Checked then s:=s+',3';
...

if s='' then exit; // exit выполняется если ни один CheckBox не выбран.
                               // т.е. вместо exit просто напишите то что выведет всю информацию

With DataModule11.ADOQuery1 do begin
 Active:=false;
 SQL.TExt:= 'Select * from [Товары] where [id_Подкатегории] in ('+s+')';
 Active:=true;
end;

[Alex Jordan]

Спасибо за помощь - все теперь все работает!!!Очень благодарен!!!