Друг получилось но сейчас голова болит как это сохранить в ini файл
Код:
procedure TSetingForm.BitBtn1Click(Sender: TObject);
var
i: integer;
begin
i:=0;
for i:=0 to CheckListBox1.Count - 1 do
poisk.DBGridEh1.Columns[i].Visible := CheckListBox1.Checked[i];
end;