[Kailon]

Может такое решение пойдет?

Код:

var
 i, j: Byte;
 Sum: Double;
begin
 for i := 0 to StringGrid1.RowCount - 1 do
 begin
  Sum := 0;
  for j := 0 to StringGrid1.ColCount - 1 do
   Sum := Sum + StrToFloatDef(StringGrid1.Cells[j,i], 0);
  Label1.Caption := Label1.Caption + 'Строка №' + IntToStr(i+1) +
                    ' = ' + FloatToStr(Sum) + '; ';
 end;
end;