Fórum Campos Aggregate no Delphi XE8 #579569

Bom, eu consegui um meio progresso aqui, mas agora eu não consigo ainda somar pq na primeira pergunta que fiz ele estava dando erro mas eu vi alguns topicos de Agreggate que consegui pelo menos aparecer algo na Label, quer dizer agora eu estou usando uma DBText.

segue o "código"...

procedure TfrmLiners.FormShow(Sender: TObject);
begin
TContratos.CarregarContratos(cbxContratos);
With dmDados do
begin
cdsLiners.Close;
cdsLiners.Open;
dbLblValor.Caption := cdsLiners.FieldByName('total').AsString;
dbLblValor.Caption := 'R$ '+FormatFloat(',#0.00',cdsLinersTotal.AsVariant);
end;
end;

desde ja agradeço a esta comunidade que esta me ajudando muito.