StringGrid новые записи

[record222]

Здравствуйте друзья!
Помогите пожалуйста разобраться в StringGrid.
А точнее с добавлением записи...

if forum.Checked then
  begin
  for k := 1 to 4 do
    begin
    fs:=idhttp1.Get('http://forum.ru/forumdisplay.php?f=60&order=desc&page='+inttostr(k));
   i := 1;
      while PosEx('thread_title_', fs, i) <> 0 do
      begin
          i := PosEx('thread_title_', fs, i) + 21;
    sl.Add(Copy(fs, i, PosEx('<', fs, i) - i));
      end;
     for I := 0 to sl.count-1 do
        sl2.Add(Copy(sl[i],  pos('- ', sl[i])+ 2, 100));
      for m := 0 to sl2.Count-1 do
      begin
      stringgrid1.Cells[1, m]:=Sl2[m];
      end;
        sl.Clear;
      sl2.Clear;
    end;

Словом мне нужно, чтоб те данные которые спарсились, заносились в стринггрид [1, следующая пуская ячейка]/.

[Stilet]

Пример добавления в конец

       with stringgrid1 do begin
           RowCount:=RowCount+1;
          for m := 0 to sl2.Count-1 do    Cells[RowCount-1, m]:=Sl2[m];
      end;