¿Como Compacto Una Base de ACCESS?

[zerelho]

Bueno yo al final lo medio soluccioné, me desconecto de la BD e intento acceder al fichero access abriendolo en modo exclusivo y si me da error (dando por supuesto que el fichero existe) es que ya existe otro usuario o aplicación utilizando el fichero (la BD).

Código Delphi [-]
FUNCTION FicheroAbierto(NomFich:String):Boolean;
BEGIN
    Try
      With TFileStream.Create(NomFich, fmOpenRead or fmShareExclusive) Do Free;
      Result := FALSE;
    Except
      Result := TRUE;
      End;
END;

No se si existe otra forma mejor de hacerlo.