stringgrid如何显示数据表，且如何换行（１５）自动到第二行第一列开始，急急！！！！！！！！！！！！

数据表　dd 
字段1.rom:  0101至0140,0201至0240 
    2.STA: VR  VD VC VM OO 
如何将这么多的数据在STRINGGRID上显示，且能控制STRINGGRID一行可以显示几个（１５个），我换行后第二行从１６列开始（晕啊），且ROM与STA还是连在一起显示不换行，怎么跟第一行一样从第一列开始，下面是我的写的代码，出错在哪，请各位大侠帮帮忙 
var 
  rom, STA: string; 
  i,d:Integer; 
begin 
  with adoq11 do 
    begin 
      i:=0; 
      d:=0; 
      while not eof do 
        begin 
        rom:=trim(fieldByName('rom').AsString); 
        sta:=trim(fieldByName('sta').AsString); 
        sgd1.Cells[i,d]:=rom+#13#10+STA; 
        IF I>=15 THEN 
            D:=D+1; 
        next; 
        i:=i+1; 
        end; 
      end; 
end;