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
LRes :=0;
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Sum(Importe) From '+NomTabla);
Query1.Open;
LRes :=Query1.Fields[0].AsFloat;
Query1.Close;
Suma:=LRes;
End;
begin
nParcial:=0;
nParcial:=nParcial +Suma('tabla1');
nParcial:=nParcial +Suma('tabla2');
.
.
For La :=1 to 100
nParcial:=nParcial +Suma('tabla'+IntToStr(La));
end;