Usando o Agreggate no Delphi XE8

Ola, Boa tarde a todos, gostaria que me ajudassem aqui pois estou penando com o aggregate aqui no delphi XE8.

procedure TfrmLiners.FormShow(Sender: TObject);
begin
TContratos.CarregarContratos(cbxContratos);
With dmDados do
begin
cdsLiners.Open;
//dbLblValor.Caption := cdsLiners.AggFields.FieldByName('Total').AsVariant;
//dbLblValor.Caption := cdsLinersTotal.AsVariant;
//dbLblValor.Caption := 'R$ '+ FloatToStr(cdsLinersTotal.AsVariant);
StatusBar1.Panels[0].Text := 'Registros encontrados: '+IntToStr(cdsLiners.RecordCount);
StatusBar1.Panels[1].Text := 'Valor total a receber: R$ '+ FormatFloat('#,##0.00',cdsLinersTotal.AsVariant);
end;
end;

Eu quero que apareça no meu statusbar, o valor a receber da coluna "VLRComissao", ou seja eu criei o campo aggregate no meu cdsLiners como "TOTAL", e a expression dele esta ASSIM: SUM(VLRCOMISSAO), e detalhe a propriedade aggregatesactive = true, e o meu campo "TOTAL" esta como active = True.

Por favor poderiam me dar uma Luz, desde ja agradeço a todos que me ajudaram.