Vedi se riesci ad adattare così
var
AggField: TAggregate;
begin
AggField := TAggregate.Create(ClientDataSet1.Aggregates);
with AggField do
begin
FieldName := 'SumDARE';
Expression := 'SUM(DARE)';
Active := True;
end;
ClientDataSet1.AggregatesActive := True;
end;
nel dubbio prima inserisci
AggregatesActive := False;
poi lo passi a true