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; 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));
End;