Muy facil, suponiendo que ConexionBD es la TADOConnection y CompactarBD es la funcion donde compactas las BD en Access:
Código Delphi
[-]
ConexionBD.Close;
CompactarBD(ficheroAccess);
ConexionBD.Open
Primero cierras la conexión con la BD, y una vez compactado el MDB, vuelves a abrir la conexión.