Заголовки колонок в DBGRID

[Liite]

Всем доброго дня, есть такая затея. Необходимо пройтись по всем колонкам DBGRID'а, с целью получения их заголовков и внесения их в бд.
Столкнулся с такой проблемой, что получается либо только имя последней колонки, либо вылетает List out of bounds.
собственно вот код, либо использую не тот вид цикла, либо что то где то забыл написать. Подскажите кому не сложно где ошибка спряталась.

procedure TForm1.btn3Click(Sender: TObject);
var
  i,j: Integer;
  gs: string;
begin
 i :=  dbgrd1.Columns.Count;
 I := 0;
 while i < dbgrd1.Columns.Count  -1 do i := i +1 ;
begin
gs := dbgrd1.Columns[i].Title.Caption;
tbl4.Insert;
tbl4.FieldValues ['old_name'] := gs;
tbl4.FieldValues ['grid_num']  :=dbgrd1.Columns[i].Index ;
 //dbgrd1.Columns[i].Index := i +1;
end;
end;

[superedward]

procedure TForm1.btn3Click(Sender: TObject);
var
  i: Integer;
  gs: string;
begin
 I := 0;
 while i < dbgrd1.Columns.Count  -1 do begin
  gs := dbgrd1.Columns[i].Title.Caption;
  tbl4.Insert;
  tbl4.FieldValues ['old_name'] := gs;
  tbl4.FieldValues ['grid_num']  :=dbgrd1.Columns[i].Index ;
  i := i +1 ;
 end;
end;

[Liite]

Спасибо, помогло. Как всегда, а ларчик просто открывался.