Как посчитать сумму по столбцу TFDMemTable?

Дельфи 10.3, есть таблица:

 
DocTable: TFDMemTable;

with DocTable do
 begin
   with FieldDefs do
   begin
     Clear;
     Add('NAME', ftString, 255);
     Add('Price', ftFloat, 0);
     Add('Count', ftFloat, 0);
     Add('Summa', ftFloat, 0);
   end;

При изменении таблицы нужно в edit вывести общую сумму

в свойствах TFDMemTable добавил аггрегат

  Edit1.Text := VarToStr(DocTable.Aggregates[0].Value);

но результат всегда null

подскажите как правильно

отсюда

with FDMemTable1.Aggregates.Add do begin
  Expression := 'sum(sal + bonus)';
  Active := True;
end;
with FDMemTable1.Aggregates.Add do begin
  Expression := 'sum(sal + bonus)';
  IndexName := 'by_deps';
  Active := True;
end;
FDMemTable1.IndexName := 'by_deps';
FDMemTable1.AggregatesActive := True;

Label1.Caption := 'Total payments : ' + VarToStr(FDMemTable1.Aggregates[0].Value);
Label2.Caption := 'Current department payments : ' + VarToStr(FDMemTable1.Aggregates[1].Value);

у меня не работает

Решил.

DocTable.Aggregates.Items[0].BeginUpdate;