Hola
Yo lo hago con un archivo INI.
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'produccion.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDB : Database Password=admin';
AC1.ConnectionString := ConStr;
AC1.Open;
end;
El archivo ini es el que contiene la direccion de la BD con solo poner uno en el mismo directorio del exe ya esta.
Si algun dia se quiere poner la bd en otro directorio no cambio el programa, solo cambio la direccion en el ini.
Saludos