Otra opción es rellenar tú de forma dinámica ese valor la primera vez que arrancas la aplicación.
Por ejemplo, si el valor no está relleno, rellenarlo tú a partir del valor de
Application.ExeName (hay otras maneras de hacerlo).
Por ejemplo:
Código Delphi
[-]
DbPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName)) + 'DataBase';
...