[Alfonso Jurado]

Ya lo he resuelto...por si a alguien le sirve, es una tonteria solo hay que poner la la password que deseemos, en este caso Iso9001,tanto cuando abrimos la base de datos a compactar,como en la base de datos destino ya compacatada, sería como en la siguiente linea:

Código Delphi [-]
ObjetoOLE.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=Iso9001;Data Source='+RutaBD,'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=Iso9001;Data Source='+RutaBD+'x;Jet OLEDB:Engine type=5');