... dir:= ExtractFileDir(ParamSTR(0)) + '\Backup\bd.mdb'; ...
Я не понял Вашего вопроса, но всё же Вам на него отвечу!