procedure TForm1.Action2Execute(Sender: TObject);
var
  dao: OLEVariant;
begin
  dao := CreateOleObject('DAO.DBEngine.35');
  dao.CompactDatabase('database.mdb','compactdata.mdb');
end;