[[gatosoft]]

Hola Paula, Veo que sigues luchando con tus grillas.... y como sugerencia, es bueno que contiinues los temas en los hilos que ya empezaste, y no abrir post nuevos con el mismo tema....asi todos pueden documentarse con las respuestas que ya se han venido dando.

Aunque no es política del foro hacerle la tarea a las personas... y con el perdon de los moderadores... aquí te va una posible solución a tu problema.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var filas, columnas, suma:integer;
begin
with StringGrid1 do
begin
  for filas := 1 to RowCount - 1 do {recorres todas las filas menos la primera (0)}
  Begin
    suma:= 0; {Cada vez que comiences una nueva fila, inicializas en cero}
    for Columnas := 1 to ColCount - 2 do {Recorres todas las columnas menos la primera y la última por que allí pondrás los resultados}
    begin
      suma:=suma + StrToIntDef((Trim(Cells[columnas,filas])),0);
    end;//for columnas
    cells[colCount-1, filas]:=Inttostr(suma); {Al finalizar la suma de cada columna, (al salir del for columnas) pones el resultado en la última columna que estas evaluando.}
  end;//for filas
end;//with

end

un saludo,