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;