Delphi设置DBGrid每列自动居中

我的方案是在表单创建的时候遍历DBGrid每列的的Alignment属性并给它赋值居中属性。

procedure TPatHomePage.FormCreate(Sender: TObject);
var i,j:Integer;
begin
  j:=dbgrd1.Columns.Count-1;
  for i:=0 to j do
  begin
    dbgrd1.Columns.Items[i].Title.Alignment:=taCenter;
    end;

end;

end.