Código Delphi [-]suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]);
suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]);