Фильтр таблицы по нескольким параметрам

[MarinaB]

Здравствуйте, подскажите, пожалуйста, как правильно отфильтровать таблицу по нескольким параметрам. Есть 4 CheckBox'а, нужно смотреть, какие из них отмечены и в зависимости от этого фильтровать таблицу по отмеченным полям. В данный момент есть следующий код, который не работает:

if CheckBox14.Checked then
  begin
    d1 := DateTimePicker1.DateTime;
    d2 := DateTimePicker2.DateTime;
    str1 := 'AND DateGaran>=' + quotedstr(DateToStr(d1)) + ' AND DateGaran<=' + quotedstr(DateToStr(d2));
  end
  else str1 := '';
  if CheckBox15.Checked then
  begin
    str2 := 'AND Client_Service=' + quotedstr(IntToStr(ClientID));
  end
  else str2 := '';
if CheckBox16.Checked then
  begin
    str3 := 'AND specialist=' + quotedstr(IntToStr(SpecialistID));
  end
  else str3 := '';
  if CheckBox17.Checked then
  begin
    str4 := 'AND VidObName=' + quotedstr(IntToStr(VidObID));
  end
  else str4 := '';

  DataModule1.ServiceADOTable.Filter := '' + str1 + str2 + str3 + str4;
  DataModule1.ServiceADOTable.Filtered := true;

Пожалуйста, очень нужна помощь

[Stilet]

Хм. С потолка:

str1:='';
if CheckBox14.Checked then
  begin
    d1 := DateTimePicker1.DateTime;
    d2 := DateTimePicker2.DateTime;
    str1 := 'DateGaran>=' + quotedstr(DateToStr(d1)) + ' AND DateGaran<=' + quotedstr(DateToStr(d2));
  end;

  if CheckBox15.Checked then
  begin
    if str1<>'' then str1:=str1+' AND ';
    str1 :=str1+ ' Client_Service=' + quotedstr(IntToStr(ClientID));
  end;

 if CheckBox16.Checked then
  begin
    if str1<>'' then str1:=str1+' AND ';
    str1 :=str1 +  ' specialist=' + quotedstr(IntToStr(SpecialistID));
  end;

  if CheckBox17.Checked then
  begin
    if str1<>'' then str1:=str1+' AND ';
    str1 :=str1+ ' VidObName=' + quotedstr(IntToStr(VidObID));
  end;

  DataModule1.ServiceADOTable.Filter := str1;;
  DataModule1.ServiceADOTable.Filtered := true;

Должно пойти.