Suma de 100 tablas dbf

[Onti]

basado en el codigo de Marcos, prodria utilizar una funcion

Código Delphi [-]
var
  nParcial: Double;
  Function Suma(NomTabla:String)ouble;
  Var
     LRes ouble;
  Begin
    // Incializar
      LRes :=0;
   
    // Consulta
      Query1.Close;
      Query1.Sql.Clear
      Query1.Sql.Add('Select Sum(Importe) From '+NomTabla);
      Query1.Open;
      LRes :=Query1.Fields[0].AsFloat;
      Query1.Close;

    // Resultado
       Suma:=LRes;
  End;
begin

  nParcial:=0;
  nParcial:=nParcial +Suma('tabla1'); 
  nParcial:=nParcial +Suma('tabla2'); 
  .
  .

// Si asumimos que el nombre de las tablas solo diere por un nro podríamos hacer algo así:

  For La :=1 to 100
    nParcial:=nParcial +Suma('tabla'+IntToStr(La));


end;