sumar columna de StringGrid

[edgar_prospero]

que hay amigos a ver quien puede echarme una mano tengo un stringgrid al cual le voy agregando datos por medio de un edit hasta ahi todo bien mi problema es que quiero lograr sumar toda una columna llamada importe y lo intento con el siguiente codigo pero me marca el siguiente error:
exception class Econvert Error with message "" is not a valid integer value y lo extraño es que si meto 4 registros si me hace la suma ojala puedan ayudarme

Código Delphi [-]
var 
i, suma: integer; 
begin 
suma:=0; 
for i:=0 to StringGrid1.ColCount-1 do 
if i<=StringGrid1.ColCount-2 then 
suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]); 

label7.Caption:= intToStr(suma);