[Enan0]

Con este codigo tenes como hacerlo. solo tenes que importar una DLL

tenes que hacerlo mediante el menu
Projects|import Type library|Microsoft Jet 2.6 o la version mas nueva.
y entonces despues agregas en los uses JRO_TLB

Código Delphi [-]

var
 engine: IJetEngine;
 src, dst, path: WideString;
begin
   // Directio donde se encuentra
   path :=ruta;
   //src: Base de Datos existente con password antiguo
   src := 'Provider= Microsoft.Jet.OLEDB.4.0;Data Source=' + path +
 'base.mdb' +
//Suponemos que la base de datos se llama BASE.mdb
   ';Jet OLEDB: Database Password=mypsw';
   //dst: Base de Datos nueva con password cambiado
   dst := 'Provider= Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'basenueva.mdb' +
   ';Jet OLEDB: Database Password=mypsw2';
 engine := CoJetEngine.Create();
 engine.CompactDatabase(src, dst);
end;

Saludos