[mma]

У меня получилось, что суммируется только один столбец, создает еще строку, в ней пишет результат, а очень хочу, чтобы он отсуммировал каждый столбец и под каждым из столбцов выдавл его сумму.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
sum: integer;
a:Longint;
begin
sum:=0;
for a:=0 to StringGrid1.RowCount-1 do begin
sum:=sum+StrToInt(StringGrid1.Cells[0,a])
end;
StringGrid1.rowCount:=StringGrid1.rowCount+1;
StringGrid1.Cells[0,a]:=FloatToStr(sum);
Form1.StringGrid1.Height:= Form1.StringGrid1.Height+ 21;
end;

Подскажите пожалуйста. Спасибо.