جعل الربط ديناميكي في الإتصال بقاعدة البيانات

كود :
var ini:TIniFile; ppa:string;
begin
  Application.Initialize;
 ini := Tinifile.Create(ExtractFileDir(Application.exename)+'\config.ini
if not FileExists(ExtractFileDir(Application.exename)+'\config.ini then
begin
 MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'le fichier des paramètres (Config.ini) existe dans le répertoire de l''application...!!!.',mterror,[mbyes],0);
Application.Terminate ;
Exit;
end else
ppa:=ini.ReadString('pro','key0',);
 if not FileExists(ppa)THEN
begin
 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.ini) '+#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;
end else
         Application.Run;

    end.