[4erep_88]

Если FixedCols=0 и FixedRows=0, то вот код...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k1,k2:integer;
sum: double;
begin
k1:=StringGrid1.RowCount-2;
k2:=StringGrid1.ColCount-1;

for j:=0 to  k2 do begin
 sum:=0;
 for i:=0 to k1 do sum:=sum+StrToFloat(StringGrid1.Cells[j,i]);
 StringGrid1.Cells[j,k1+1]:=FloatToStr(sum);
end;
end;