[Uniq!]

Добавить на форму CheckListBox1
В него загрузить список колонок.

Код:

PoiskQuery.GetFieldNames(CheckListBox1.Items);

Обработать циклом

Код:

for i := 0 to CheckListBox1.Count - 1 do
  begin
          //код для отображения \ скрытия
  end;