Dudas con TDBGrid

[[coso]]

Hola,
se deben sacar los datos desde la base de datos, no del dbgrid (al menos, es mas sencillo). Si usas tablas

Código Delphi [-]

suma := 0;
Table1.First;
while not Table1.Eof do 
begin
   suma := suma +   Table1.FieldByName('dato_columna3').Asdouble;
   Table1.Next;
end;

si usas querys

Código Delphi [-]

query1.Active := false;
query1.SQL.Text := 'select sum(dato_columna3) as suma from tabla';
query1.Active := true;
ShowMessage(query1.FieldByName('suma').Asstring);

saludos.