unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,DAO_TLB, Forms,
  Dialogs, JRO_TLB,StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    const
Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
SrcMDB = 'c:\retdata\dbmas.mdb';
DstMDB = 'c:\retdata\dbmas1.mdb';    procedure TForm1.Button1Click(Sender: TObject);
var
   DbEng : DBEngine;
   DbTabledef : Tabledef;
   JetEng : JetEngine;
   db : database;
   dbfilename : string;
   Src : WideString;
   Dest : WideString;
   caccess:variant;
begin
   DbEng := CoDBEngine.Create ;
   DbTabledef :=CoTabledef.Create ;
   JetEng :=CoJetEngine.Create ;
   Src := Provider   'Data Source='   dbfilename;
   Dest := Provider   'Data Source='   DstMDB;
   dbfilename :='c:\retdata\abc.mdb';
   db:= DbEng.OpenDatabase(Src);
    //OpenDatabase(dbfilename);
   try
   If FileExists(DstMDB) Then
   DeleteFile(DstMDB);
   //raise Exception.Create('Cannot locate Paradox data files');
   //DeleteFile(DstMDB);
   //JetEng.CompactDatabase(Src, Dest);
   //DbEng.CompactDatabase (Src,Dest,'c:\retdata');
   JetEng.CompactDatabase (Src, Dest);       finally
   JetEng := Nil;
   DbEng :=Nil;
   end;
end;    end.