وصل قآعدة البيانات بدون ارتباط بمسار بعيّن؟

كود :
program essai;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  IniFiles,
  Unit2 in 'Unit2.pas' {datamodule2: TDataModule},
  Unit5 in 'Unit5.pas' {frm_menu},
 
{$R *.res}
  var ini:TIniFile; ppa:string;
begin
  Application.Initialize;
   Splash:=TSplash.Create(nil);
     splash.show;
   splash.update;
   ini := Tinifile.Create(ExtractFileDir(Application.exename)+'\config.cnr');
if not FileExists(ExtractFileDir(Application.exename)+'\config.cnr') then
begin
  Splash.Free;
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'le fichier des paramètres (Config.cnr) existe dans le répertoire de l''application...!!!.',mterror,[mbyes],0);
Application.Terminate ;
Exit;
end else
ppa:=ini.ReadString('programme','chemin','');
 if not FileExists(ppa)THEN
begin
 Splash.Free;
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'1) - Le chemin de Base de données spécifié dans le fichier des paramètres (config.cnr) '+#13+#13+
'exist reréellement sur votre P.C ou sur votre reseau local '+#13+#13+
'2) - La base de données Retraite Existe dans le chemin spécifié.',mterror,[mbyes],0);
Application.Terminate;
Exit;


   Application.CreateForm(Tdatamodule2, datamodule2);
  Application.CreateForm(Tfrm_menu, frm_menu);

  PasswordDlg:=TPasswordDlg.Create(nil);
  Splash.Free;
  if  PasswordDlg.showmodal<>1 then
  begin
 MessageDlg('Fin du programme....!!',mtWarning,[mbOK],0);
 Application.Terminate;
   end else
  PasswordDlg.Free;
  Application.Run;

    end.