[Uniq!]

Дружище, извини я не работаю с АДО. И баз нету.

Значит смотри
-DBGrid2, это таблица с твоей второй формы.
-MyQuery2, это "запрос" где ты делаешь поиск.
- первая процедура - это кнопка твоего поиска.
- вторая процедура это кнопка на второй форме для отображения колонок.

MyQuery2 = PoiskQuery (в твоём случае)

Код:

procedure TForm1.but_searchClick(Sender: TObject);
begin
  MyQuery2.SQL.Clear;
  MyQuery2.SQL.Add('Select * from `emp` where `comm` > 1');
  MyQuery2.Execute;
  MyQuery2.GetFieldNames(CheckListBox1.Items);
end;

procedure TForm1.but_checkClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    DBGrid2.Columns[i].Visible := CheckListBox1.Checked[i];
end;

Поправил вторую процедуру. В цикле не так чутка.