[Страдалецъ]

А вы возьмите в скобки все ваши фрукты:

Код:

if DBComboBoxEh4.Text<>'' then f.SQL.Add('and (FRUKT like'+#39+DBComboBoxEh4.Text+#39);
if DBComboBoxEh5.Text<>'' then f.SQL.Add('or FRUKT like'+#39+DBComboBoxEh5.Text+#39+')');