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;