Fórum soma no grid........................... #215658

 
var i: integer;
      valor: Real;
begin

valor := 0;
.
.
query1.Open();
     while not query1.eof do
         begin
            Valor := Valor + query1.FieldByName(´CAMPO´).AsFloat;
            Next;      
       end;