Suma el dBgrid vertical

[olbeup]

No debería de darte problemas, Prueba esto otro:
...

Código Delphi [-]
var
  ImporteTotal: Extended;
begin
  ImporteTotal := 0;
  with adoquery do
    while (not eof) do
    begin
      ImporteTotal := ImporteTotal + FieldByName('TOTAL').AsFloat;

      Next;
    end;

    Edit1.Text := FormatFloat('#,#0.00', ImporteTotal);
end;

Un saludo.