[lmikle]

Код:

Cnt := 0;
For I := 0 To StringGrid1.ColCount-1 Do
  In StrToInt(StringGrid1.Cells[0,I]) >= 180 Then Inc(Cnt);

После окончания цикла в переменной Cnt будет кол-во ячеек, значение в которых >= 180.