1、使第i字段名居中：
   DBGrid1.Columns[i].Title.Alignment := taCenter;
2、使数据居中显示：
   DBGrid1.Columns[3].Alignment := taCenter;
--------------------------------------------------------
以上操作也可以Object Inspector属性设计器中设置。
--------------------------------------------------------
给你段代码：

var
  Count: integer;
begin
  for Count:=0 to DBGrid1.Columns.Count-1 do
  begin
    DBGrid1.Columns[Count].Title.Alignment := taCenter;
    DBGrid1.Columns[Count].Alignment := taCenter;
  end;
end;