Во-первых, ты не делаешь инкремент CNT (неужели скопировать трудно? Правда, уважаемый Imikle перепутал нумерацию в Cells и вместо IF написал IN), во-вторых, ты в цикле выводишь нуль, в-третьих, т.к. ячейки могут быть пустыми, лучше писать так:
Код:
if (Length(StringGrid1.Cells[I,0]) > 0) and (StrToInt(StringGrid1.Cells[I,0]) < 180) then Inc(Cnt);
К тому же что-то ты всё время меняешь условия: то "не превышает" (поэтому я поставил знак "меньше"), то "больше". Не суетись, а то решишь не ту задачку.