Фильтрация по CheckListBox

[reihtmonbern]

Здравствуйте товарищи программисты и любители у меня к вам вопрос ?
Хочу реализовать фильтрацию данных в базе данных как в экселе или в аксесе то есть выпадающий список с чекбоксами внутри по ним кликаеш то есть выбираешь два три четыре короче сколько нужно и потом жмешь кнопку и происходит фильтрация данных
Эту задачу я лично начел решать так :
Дополнительно на форму добавил ADOQuery2 в нем указал запрос : select имя from t
group by имя
Получившиеся сгруппированный список (это для того чтобы избежать дублирующие строки) я подгружаю в компонент CheckListBox1с помощью кода :
#
begin
while not ADOQuery2.Recordset.EOF do
begin
CheckListBox1.Items.Add(ADOQuery2.R ecordset.Fields[0].Value);
ADOQuery2.Recordset.MoveNext;
end;
#
Вот в дальнейшем я пытаюсь это дело отфильтровать ну по выбранным позициям там где чекеды стоят с помошью кода:
#
ADOQuery1.filtered:=false;
ADOQuery1.Filter := 'имя LIKE ' + '=''' + CheckListBox1.Items.Text + '''';
ADOQuery1.filtered:=true;
#
Но вы тоге либо отображается пустой дБ грид либо ошибка

Как мне быть не знаю ? мне бы хотя бы подсказать код который фильтровал ?? по нажатию на кнопку и выбранной строке в CheckListBox1

в вложенных файлах исходник на дэлфи 2010 и ошибка !
Возможно я надеюсь вы мне подскажите какое ни будь более красивое концептуально иное решение ??

[Прик]

procedure TForm1.Button6Click(Sender: TObject);
var
  I : Integer;
  S : string;
begin
  ADOQuery1.filtered:=false;
  S := '';
  for I := 0 to CheckListBox1.Items.Count - 1 do
    if CheckListBox1.Checked[I] then
      S := S + 'имя = ' + QuotedStr(CheckListBox1.Items[I])+' or ';

  if S <> '' then
    S := Copy(S, 1, Length(S)-4);
  ADOQuery1.Filter := S;
  ADOQuery1.filtered:=true;
end;

Так фильтр работает.
Вместо group by корректнее для указанной цели применить distinct:

select distinct имя from t

[reihtmonbern]

СПАСИБО ОГРОМНЕЙШЕЕ ПРИ ОГРОМНЕЙШЕЕ СУПЕР ОТВЕТ И МОЛНИЕНОСНЫЙ ВСЁ РАБОТАЕТ НА УРААА!! :