delphi dbgrid 列赋值，检索后，不显示

给dbgrid的列提前赋值，运行后，检索不显示数据，只显示有几行（这几行都是空白）。
我是这样赋值的
  dbgrid1.Columns.Add;
  dbgrid1.Columns[0].Title.caption:='商品编号';
  dbgrid1.Columns[0].Width:=70;
  ……………………
我写在from的onshow事件里面。
不赋值就可以检索出内容。
这是为什么？
有什么办法可以提前赋值，并且检索出内容么？！