IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'MiIni.ini'); BasedeDatos := IniFile.ReadString('BD','Path','');
User:= IniFile.ReadString('US','Name','');
Pass:= IniFile.ReadString('PS','Clave','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
dmconexion.sqldb.DatabaseName:= BasedeDatos; dmconexion.sqldb.Driver:= 'Firebird'; dmconexion.sqldb.pasword:= User; dmconexion.sqldb.username:= Pass;
dmconexion.sqldb.Connected:= True;