Grid中累加

procedure TFrm_02_Wh_04.sumImp;
var
  sumImp : double;
  BookMark: Pointer;
  Lines:string;
begin
  sumImp:=0.0;
  BookMark := MDBGrid1.DataSource.DataSet.GetBookmark;
  MDBGrid1.DataSource.DataSet.First;

  while not MDBGrid1.DataSource.DataSet.Eof do begin
    Lines := MDBGrid1.Columns.Grid.Fields[11].Text;
    sumImp:=sumImp+strToFloat(Lines);
    MDBGrid1.DataSource.DataSet.Next;
  end;

  MDBGrid1.DataSource.DataSet.GotoBookmark(BookMark);
  edit1.Text:=floatToStr(sumImp);
end;