Calculo De Totales

[sanxpue]

Lo que puedes hacer es lo siguiente :

Código Delphi [-]
Procedure Form1.SumaTotales;
Var
  Total : Extended;
Begin
  Total := 0;
  Table1.Filtered := False;
  Table1.Filter := '[NumFac] = '+Edit1.Text;//Suponiendo que hay pones 
                                        //el # de la factura Sea = 1
  Table1.Filtered := True;
  Table1.Open;
  While Not Table1.EoF Do
  Begin
    Total := Total+Table1Total.AsFloat;
    Table1.Next;
  End;
  Table1.Close;
  Label1.Caption := FormatFloat('#,##0.00',Total);
  Label2.Caption := FormatFloat('#,##0.00',Total*Tasa);
  Label3.Caption := FormatFloat('#,##0.00',Total+(Total*Tasa));
  //Donde tasa tu la traes no se de donde pero la traes je
End;