Удаление столбцов в DBGrid-e

[artemavd]

Помогите сделать так, чтобы можно было удалять столбцы ненужные в DBGrid-e. При запуске программы в гриде отображается 15 столбцов, но возможно понадобится удалить лишние. Я начал делать так:

var
 i,j:integer;
begin
 i:=14; //15 столбцов
 j:=1; //при каждом нажатии надо, чтобы удалялся один столбец
   DBGrid1.Columns[i-j].Destroy;
end;

но когда я нажимаю на кнопку один раз, то в таблице остается нумерация столбцов такая: 1,2,3,4,5,6,7,8,9,10,11,12,13,15, а должно быть 1,2,3,4,5,6,7,8,9,10,11,12,13,14. Нажимаю еще раз остается такая последовательность: 1,2,3,4,5,6,7,8,9,10,11,12,13. Нажимаю третий раз появляется ошибка: "List index out of bounds (13)" и все. Как сделать, чтобы заработало правильно? Помогите пожалуйста)

[Ламер_001]

наверное надо
i:= DBGrid1.Columns.Count;;
и нумерация идет с 0 если я не ошибаюсь.

[artemavd]

Ламер_001, ваш вариант не работает. Так нельзя писать. Я знаю, что с нуля идет нумерация.

[Ламер_001]

как нельзя?

j:= 1;
i:= DBGrid1.Columns.Count;
if i = 1 then ShowMessage('Error!')
else DBGrid1.Columns[i-j].Destroy;

у меня прекрасно удалила...

[Andrei]

А я бы не стал мучиться с удалением. Установил бы свойство Visible в ненужных столбцов в Fase и всё. К тому же, в любое время, если потребуется, их можно будет включить снова.