en Delphi File --> New Unit
El código lo pegas allí, y antes de abrir la base de datos en tu programa llamas a la rutina "mantobases" (mantenimiento de bases de datos)
Si no lo entiendes bien, entonces necesitas mirarlo más a fondo
Tiene un
FALLO revisalo.