CurrentTable.Active := false;
 CurrentDB.Connected := false;
 CurrentDB.Exclusive := true;
 try
  CurrentDB.CompactDatabase;
  Application.ProcessMessages;
 except
  if (not FormProgressCancel.bCancel) then
   MessageDlg('Errors occurred while compacting database. Original file restored, use RepairDatabase to fix errors.',
              mtError,[mbOk],0)
  else
   MessageDlg('Compact operation aborted.',mtInformation,[mbOk],0)
 end;
 CurrentDB.Exclusive := false;
 CurrentDB.Connected := true;