Delphi Sg

[Manhunt714]

Прив, кто может подсказать как проверить ВСЕ значения последней строчки в стриггриде, отрицательные ли...пробовал так:
1) for a:=2 to sg1.colcount-1 do
begin
if sg1.cells[a,4]<0 then ......
end
else .............
2)if (((strtofloat(cells[2,4])<0)and (strtofloat(cells[3,4])<0))and (strtofloat(cells[4,4])<0)and (strtofloat(cells[5,4])<0) and (strtofloat(cells[6,4])<0) and (strtofloat(cells[7,4])<0)) then

Всё равно переходит на "иначе"......

[3D Hunter]

for a:=0 to sg1.selcount-1 do
for b:=0 to sg1.colcount-1 do
  if strtofloat(sg1.cells[a,b])>0 then <...> else <...>;