Работа с циклом в StringGrid-e

[artemavd]

Добрый вечер! Вот замутил под свои нужды цикл, который ищет в одной строке во всех колонках 2-ки. Ищет прекрасно, но вопрос вот в чем: как сделать, чтобы этот цикл считал количество двоек в одной колонке, а результат выводил в ячейки друг под другом?
Вот цикл:

 count_2:=0;
 for i_2:=4 to Form8.StringGrid1.ColCount - 1 do
  if Form8.StringGrid1.Cells[i_2,1] = '2' then
   Inc(count_2);
   Form1.Show;
   Form1.SG2.Cells[0,1]:=IntToStr(count_2);

[ОДИНОЧЕСТВО В СЕТИ]

l:=1;
 for i_2:=4 to Form8.StringGrid1.ColCount - 1 do begin
count_2:=0;
  if Form8.StringGrid1.Cells[i_2,1] = '2' then
   Inc(count_2);
   Form1.Show;
   Form1.SG2.Cells[0,l]:=IntToStr(count_2);
inc(l);
end;

так?

[Neeter]

как сделать, чтобы этот цикл считал количество двоек в одной колонке, а результат выводил в ячейки друг под другом?

Уточните, я вот не понял.