Evento OnCalcFields

var
  i,r: integer;
  n: real;
  Atraso: Double;
begin
 Atraso:= Date - BD_CONT_RECGS_COR_DATA_VENC.AsDateTime;
  if Atraso > 0 then
    BD_CONT_RECGS_COR_DATRASO.AsFloat := Atraso
  else
    BD_CONT_RECGS_COR_DATRASO.AsFloat := 0;

  n:= 0;
  r:= BD_CONT_REC.RecordCount;
  BD_CONT_REC.First;
    for i:=1 to r do
    begin
    n:= n + BD_CONT_RECGS_COR_VALOR_PARCELA.asfloat;
    BD_CONT_REC.Next;
  end;
  Edit6.Text:= formatfloat(´R$ ,#,,0.00´,n);