将DBgrid中某字段的值 求和后 没显示 ....求助

                            
大家好      
  我是想单击Button1   后将显示在DBgrid中的某字段的值求和   然后再Edit1.text中显示出来  
   
  过程如下:  
              连接好数据库后,DBgrid中已显示product1表   其中有个price   字段    
     
              然后我再Button1的click过程下键入一个循环语句,如下:  
     
        procedure   TForm1.Button1Click(Sender:   TObject);  
         
              Var   sum:integer;  
            begin  
              sum:=0   ;  
                DBgrid1.DataSource.DataSet.First;  
                    while   DBGrid1.DataSource.DataSet.Eof   do  
                    begin  
                        sum:=   sum   +   Dbgrid1.DataSource.DataSet.fieldbyname   ('price').Value;    
                          DBgrid1.DataSource.DataSet.Next;  
                      end;  
          Edit1.Text   :=IntToStr(sum);  
   
   
  end;  
   
    程序运行后单击   Button1     Edit.Text中显示的是0,   并没有将price字段的值求和并显示    
   
    难道是中间求和过程没有执行吗?  
  还是其他原因?  
  悉心等待各位高手的指点。。。。。。谢谢

查看回复