Kod
Öncelikle ImportTypeLibrary den
 
Microsoft Jet and Replication Objects 2.6 Library, Version 2.6,
 
kütüphanesini projenize dahil etmeniz yada install yaparak component palete 
yerleştirmeniz gerekir.Varsayılan ayarlarla kurulursa ActiveX sekmesine gelir.
 
procedure Tfrmana.Button1Click(Sender: TObject);
var
 dbSrc: WideString; //kaynak yolu
 dbDest: WideString; //hedef yolu
 dbyol: WideString; //exe yolu
 Je: TJetEngine;
const
 //bu da dizi cümlesi
 SProvider =
  'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database
Password=Passwordunuzuyazin;Data Source=';
begin
datmodul.connection1.Connected := False;
 dbyol := extractfilepath(application.ExeName); //exe yolu
 dbSrc := SProvider + dbyol + 'Data.mdb'; //sıkışacak dosya
 dbDest := SProvider + dbyol + 'compData.mdb';
 //sıkıştırılmış dosyanın alacağı ad ve yer
 if FileExists(dbyol + 'compData.mdb') then //eğer aynısı varsa
 begin
  DeleteFile(dbyol + 'compData.mdb'); //önce sil
 end;
 Je := TJetEngine.Create(Self);
 try
  JE.CompactDatabase(dbSrc, dbDest); //sonrada sıkıştır
//önce eski şişmiş dosyaları sil
  DeleteFile(dbyol + 'Data.mdb'); //önce sil
//şimdide adlarını değiştir.
  RenameFile(dbyol + 'compData.mdb', dbyol + 'Data.mdb');
  datmodul.connection1.Connected := true;
 finally
  JE.Free;
 end;
end
 
 
Bu kütüphane C:Program FilesCommon FilesSystemadomsjro.dll 
dosyasındadır.Listeden silinmiş olması önemli değil.Tekrar aşağıdaki adımları 
tekrar ederek ekleyebilirsiniz. 
 
---Project-Import Type Lİbrary 
---Add Butonuna Tıklayıp açılan pencereden yukarıda yolunu yazdığım msjro.dll 
dosyasını ekleyiniz.Listeye eklenecektir. 
---Sonra bu kütüphane seçili iken Install butonunu tıklayınız. 
---Açılan pencerede IntoNewPackage sekmesini tıklayın. 
---Sonra Browse düğmesini tıklayarak oluşacak componentin dpk dosyasınıda bir 
isim vererek kaydedelim.Bir daha kurmak istediğimizde direk bu package 
dosyasından kurabiliriz. 
---Description kısmı opsiyoneldir.İsterseniz paketinizle ilgili bir açıklama 
yazabilirsiniz. 
---Sonra açılan Confirm başlıklı pencerede BPL dosyasının oluşturularak 
komponentin install edilip edilmeyeceği sorusuna Yes dedikten sonra gidip 
ActiveX sekmesinde ilgili komponentlerin geldiğini görebilirsiniz.