Ошибка при фильтрации!

[Markus]

вот такой вопрос:
есть реализованная фильтрация ClientDataSet:

...
if FilterForm.PDJXPCheckBox5.Checked=True then begin
   with FilterForm.PDJXPCheckListBox1 do begin
   for i:=0 to Count-1 do begin
   if Checked[i] then
   r:=r+'or [Metro]='+QuotedStr(FilterForm.PDJXPCheckListBox1.Items[i]);
   end;
   for i:=0 to Count-1 do begin
   if FilterForm.PDJXPCheckListBox1.Checked[i]=False then s:=s+''
   else s:=s+'and ('+Copy(r, 4, MaxInt)+ ')';
   end;
   end;
   end;
...
if s<>'' then begin
Komponents.ClientDataSet2.Filter:=Copy(s, 5, MaxInt);
Komponents.ClientDataSet2.IndexFieldNames:='Kolichestvo komnat';
Komponents.ClientDataSet2.Filtered:=True;
FilterForm.Close;
end else if s='' then
Komponents.ClientDataSet2.Filter:=s;
FilterForm.Close;
end;

работает все нормально. Но если в PDJXPCheckListBox1 поставить галочки на
больше 34-х строках и нажать кнопку "фильтр", то программа уходит в
ошибку. Как я понимаю слишком длинная получается формула сравнения. Но уменьшить количество строк в итемс в PDJXPCheckListBox1 ни как нельзя, как можно заметить из кода, это станции метро.... Ни как не могу понять что сделать. Очень прошу помочь!