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.