Tabular Bloque de Codigo (Parrafo)

[voldemmor]

Pro favor explica mejor lo que necesitas la verdad no se entiende lo que necesitas.

Pero por lo poco que puedo entender talves te sirva algo como esto.

Código Delphi [-]
sum:=0;
with Query do
begin
  while not eof do
   begin
      sum:= sum+fields[0].asinteger;
    next;
   end
end

bueno eso te entendi