[Janom]

Что-то типа того:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j:Cardinal;
  Sum:real;
begin
for i:=0 to StringGrid1.ColCount-1 do
  begin
    for j:=0 to StringGrid1.RowCount-2 do
      begin
        StringGrid1.Cells[i,j]:=InputBox('','','');
      end;
  end;

for i:=0 to StringGrid1.ColCount-1 do
  begin
    Sum:=0;
    for j:=0 to StringGrid1.RowCount-2 do
      begin
        Sum:=Sum+StrToFloat(StringGrid1.Cells[i,j]);
      end;
    StringGrid1.Cells[i,StringGrid1.RowCount-1]:=FloatToStr(Sum);
  end;
end;