Progress Bar al compactar BD

[[Nbull]]

Hola, tengo un boton en mi aplicación que me compacta mi base de datos Access, lo que quiero es que me salga un Progress Bar cuando la compacte para saber cuanto va a tardar y no se como hacerlo, para compactarla uso el siguiente codigo:

Código Delphi [-]
 
procedure TForm1.CompactarBasedeDatos1Click(Sender: TObject);
begin
DatabaseCompact(SiniDir+'\datos\agenda.mdb');
end;

Un saludo y gracias.