Обеспечить переносимость приложения с БД

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientDataSet1.FileName :=('C:\Delphibd\Table\Matkalk.xml'); //загрузить с диска
 ClientDataSet1.Active:=True;
  end;
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ADOConnection1.ConnectionString :=('C:\Delphibd\Table\Access1.xml');
Form1.ADOQuery1.Active :=True;
  end;
end.

var s:string;
begin
path := ExtractFilePath(Application.ExeName ) + 'baza2014.mdb';
s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + ';Persist Security Info=False';
ADOConnection1.ConnectionString:=s;
ADOConnection1.Connected:=true;
If ADOConnection1.Connected=true then
StatusBar1.Panels[0].Text:='База загружена' else
StatusBar1.Panels[0].Text:='База незагружена'

procedure TForm1.FormCreate(Sender: TObject);
var s,path:string;
begin
path := ExtractFilePath(Application.ExeName ) + 'Access1.mdb';
s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + ';Persist Security Info=False';
ADOConnection1.ConnectionString:=s;
ADOConnection1.Connected:=true;
If ADOConnection1.Connected=true then
ADOQuery1.Active:=true;
end;
end.

pach:='любой путь пример с:/блабла/бла'   
ExtractFilePath(Application.ExeName ) + 'Access1.mdb'; - а здесь все просто ExtractFilePath путь к файлу с программой+ имя базы данных от куда грузить