Fechando todas as tabelas de um aplicativo

var

i: integer;

begin

with Session do

for i:= 0 to DatabaseCount - 1 do

Databases[I].Close;

end;

{Dica enviada por Marco Barki Algranti