怎样在DBGrid中创建列表头

Question

for i:=0 to  Adoquery1.RecordCount -1 do   begin    //添加列表头
  SJZDGrid1.Columns[i].FieldName :=Adoquery1.FieldValues['COL_Name'];
  SJZDGrid1.Columns[i].Title.Caption := Adoquery1.FieldValues['COL_CHINIES'];
  Adoquery1.Next ;
在查询中查出了列名字段，然后打算执行循环进行添加。但是它本身不能把前面的字段给删除掉，只是改变前面的两个字段。
请各位大侠快点帮忙！！！不仅感激！！！

Answer 1

dbgrid1.Columns.RebuildColumns;
dbgrid1.Columns.Add;