[wilcg]

Hola amigos del foro, la consulta es. ¿Como mostrar y ocultar columnas de un DBGrid? lo que deseo es implementar
una ventana propia para seleccionar las columnas que uno desea ver en un DBGrid.
estoy trabajando en este codigo, asi muestro las columnas del DBGrid en un TCheckListBox.

Código Delphi [-]
var
   i :Integer;
begin
  CheckListBox1.Clear;
  for i := 0 to DBGrid1.Columns.Count-1 do
  begin
    CheckListBox1.Items.Add(DBGrid1.Columns[i].Title.Caption);
    CheckListBox1.Tag := i;
    if DBGrid1.Columns[i].Visible = True then
      CheckListBox1.Checked[i] := True
    else
      CheckListBox1.Checked[i] := False;
end;

Ahora para seleccionar ocultar/mostrar una columna del DBGrid en tiempo real, es el problema

Código Delphi [-]
if CheckListBox1.Checked[tag] = True then
  DBGridCProductos.Columns[tag].Visible := False
else
  DBGridCProductos.Columns[Tag].Visible := True;

Necesito que alguien me ayude con este problemita, si alguien tiene una mejor forma de hacerlo bienvenido.