Код:
function IsValueInFilter(FValues: TStringList; S: string): Boolean;
var
i: Integer;
res: Boolean;
begin
res := False;
for i := 0 to FValues.Count-1 do
begin
if FValues[i] = S then
begin
res := True;
Break;
end;
end;
Result := res;
end;
Это пользовательская функция. В проекте есть модуль, там собраны много пользовательских функций и процедур. Вы мне даже приводили постами выше как ее улучшить.
Сейчас пойду внесу в код Ваше предложение .... посмотрим что покажет