[[enecumene]]

Hola intenta esto:

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;

Saludos