怎样固定dbgrid控件的列宽？

var I: Integer;
begin
for i:=0 to dbgrid.Columns.Count-1 do
  dbgrid.Columns.Items[i].Width:=100
end;