function FecharTabelas (Tabela: Array of TTable): Boolean;
var
 iCount: Integer;
begin
  try
    Result := True;
    for iCount := 0 to High (Tabela) do
      Tabela [iCount].Close;
  except
    Result := False;
    Application.MessageBox ('Impossvel fechar a(s) tabela(s)', 'Erro', mb_Ok + mb_IconError);
  end;
end;