DatabaseName em Tempo de Execução

procedure TdmCON.DataModuleCreate(Sender: TObject);
var
  myINI : TINIFile;
  fileinfo : VS_FIXEDFILEINFO;
begin
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + ´grs.ini´);
  application.processmessages;
  try
    begin
      db.AllowStreamedConnected := false;
      db.connected := false;
      db.DatabaseName := myINI.ReadString(´Geral´, ´Banco de Dados´, ´grs.gdb´);
      db.Params.add(´user_name=sysdba´);
      db.Params.add(´password=masterkey´);
      db.connected := true;
    end;
  except
    begin
      raise Exception.Create( ´O banco de dados não foi aberto corretamente.´);
      application.terminate;
    end;
  end;
  myINI.Free;
  tran.Active := true;
end;

[Geral]
Banco de Dados=c:\delphi\grs\grs.gdb
Banco de Dados=200.178.123.32:/grs.gdb

Procedure LeReg;
var
reg     : TRegistry;
Caminho : String;
begin
    // cria o objeto TRegistry
    reg         := TRegistry.Create;
    Reg.Access  := KEY_READ;
    // conecta ao root diferente do padrão
    reg.RootKey := HKEY_LOCAL_MACHINE;
    try
        // se o path nao existir chama o form que configura o path  "Config_DB"
        if not reg.KeyExists(´Software\SeuSistema´) then
        begin
           Config_DB := TConfig_DB.Create(nil);
           Config_DB.ShowModal;
        end
            else // se a chave existir
                begin
                     //le o caminho
                     Reg.OpenkeyReadOnly(´Software\SeuSistema´);
                     caminho := Reg.ReadString(´configuracoes´);
                     Reg.closekey;

                     //informa ao DB dentro do DataModule o caminho

                     DM.DB_Login.AllowStreamedConnected := false;
                     DM.DB_Login.connected              := false;
                     DM.DB_Login.DatabaseName           := Caminho;
                     DM.DB_Login.Params.add(´user_name=sysdba´);
                     DM.DB_Login.Params.add(´password=masterkey´);
                     DM.DB_Login.connected              := true;                   

                end;
    finally
    reg.Free;

    DM.Tr_Login.Active          := true;
    DM.Tbl_Login.Active         := true;
    
    end;
end;

Procedure CriaReg; // cria chave no RegEdit
var
reg     : TRegistry;
caminho : String;
begin
    // cria o objeto TRegistry
    reg         := TRegistry.Create;
    // conecta ao root diferente do padrão
    reg.RootKey := HKEY_LOCAL_MACHINE;
    caminho     := Config_DB.Edit_Caminho.Text;
    try
        // se o path nao existir
        if not reg.KeyExists(´Software\SeuSistema´) then
        begin
            reg.CreateKey(´Software\SeuSistema´);
            // abre a chave (no root selecionado)
            reg.OpenKey(´Software\SeuSistema´, True);
            // grava o valor da chave em formato String
            reg.WriteString(´configuracoes´, caminho);
            ShowMessage(´Banco configurado com sucesso.´);
            Config_Db.Close;
        end
            else // se a chave existir
                begin
                    // abre a chave (no root selecionado)
                    reg.OpenKey(´Software\SeuSistema´, True);
                    // grava o valor da chave em formato String
                    reg.WriteString(´configuracoes´, caminho);
                    ShowMessage(´Banco configurado com sucesso.´);
                    Config_Db.Close;
                end;

    finally
    reg.Free;
    end;
end;

Procedure LeReg; // Le o o valor criado na chave do RegEdit
var
reg     : TRegistry;
caminho : String;
begin
    // cria o objeto TRegistry
    reg         := TRegistry.Create;
    // conecta ao root diferente do padrão
    reg.RootKey := HKEY_LOCAL_MACHINE;
    try
        begin
            //le o caminho e informa ao DB dentro do DataModule
            Reg.OpenkeyReadOnly(´Software\SeuSistema´);
            caminho := Reg.ReadString(´configuracoes´);
            Reg.closekey;
            Config_DB.Edit_Caminho.Text := Caminho;
        end;
    finally
    reg.Free;
    end;
end;


procedure TConfig_Db.Btn_SalvarClick(Sender: TObject);
begin
     CriaReg;     
end;

procedure TConfig_Db.Btn_CancelarClick(Sender: TObject);
begin
    Close;
end;

procedure TConfig_Db.FormShow(Sender: TObject);
begin
    LeReg;
end;

procedure TConfig_Db.SpeedButton1Click(Sender: TObject);
begin
    OpenDialog1.InitialDir := Application.ExeName;
    if OpenDialog1.Execute then
    Edit_Caminho.Text      := OpenDialog1.FileName;
end;

Procedure LerConfig;
var
   NomeArq:String;
   ArqIni:TiniFile;
begin
 NomeArq := ChangeFileExt(Application.ExeName,´.ini´);
 ArqIni := TIniFile.Create(NomeArq);
  Try
  { Pego o path da base de dados }
  PathServerBase      := ArqIni.ReadString(´Parameters´,´BASE´,PathServerBase);
  { Aplicativo responsavel pelo monitoramento e criação dos backup´s }
  PathExeBackup       := ArqIni.ReadString(´Parameters´,´AppBackup´,PathExeBackup);
  finally
  ArqIni.Free;
 end;
End;