Foros Club Delphi - Sumar valores con stringgrid

Hola:

siempre me ha gustado su foro pero esta es la primeravez que me atrevo a preguntarles algo, desarrolle un codigo que permite sumar fila y columna de un stringgrid mostrando en la ultima columna el resultado de la sumatoria total.

el codigo es este:

Código Delphi [-]procedure TForm1.Button3Click(Sender: TObject);
var p : Integer;   /////para las filas sumatoria
n,m,z,k:Integer;
s: real;
begin n:=strtoint(edit1.text);   //filas  edit1
s:=0;
z:=1;
m:=0;

for i := 1 to n do begin 
 m:=m+1 ;
 s := s + StrTofloat(stringgrid1.cells[i,1]);
 stringgrid1.cells[n+1,1] := floattostr(s); 
end;
       end;

este codigo sirve, pero el unico detalle es que solo me suma la primera fila, tambien hay un codigo para cada columna solo hay que cambiar el orden :), pero ya me quebre mucho la cabeza y no puedo hacer que sumen todas las filas siguientes. alguien me ayuda??

Código Delphi [-]

procedure TForm1.Button3Click(Sender: TObject);
var p : Integer;   /////para las filas sumatoria
n,m,z,k:Integer;
s: real;
begin n:=strtoint(edit1.text);   //filas  edit1
s:=0;
z:=1;
m:=0;

for i := 1 to n do begin 
 m:=m+1 ;
 s := s + StrTofloat(stringgrid1.cells[i,1]);
 stringgrid1.cells[n+1,stringgrid1.row] := floattostr(s); 
end;
       end;