Conectado banco firebird pelo arquivo ini

Dica de como se conectar no banco interbase ou firebird, através de configurações de um arquivo ini.

var

vArqIni:TIniFile;

Caminho:string;

begin

   Caminho:='C:Automacao ComercialBancoAUTOMACAO.FDB';

   DataModulo.conexao.Close;

   if not( fileexists(extractfilepath(ParamStr(0))+'Automacao.ini') ) then begin

      ShowMessage('Arquivo de Configurações do Banco de Dados Não Encontrado!');

      vArqIni := TIniFile.Create(extractfilepath(ParamStr(0))+'Automacao.ini');

      try

        conexao.ConnectionName:='BANCO';

        vArqIni.WriteString('BANCO','database',Caminho);

        conexao.Params.Values['DataBase'] :=Caminho;

      finally

        vArqIni.Free;

      end;

   end;

   try

     vArqIni := TIniFile.Create(extractfilepath(ParamStr(0))+'Automacao.ini');

     conexao.ConnectionName:='BANCO';

     Caminho :=vArqIni.ReadString('BANCO','database',Caminho);

     conexao.Params.Values['DataBase'] :=Caminho;

   finally

     vArqIni.Free;

   end;

   try

     DataModulo.conexao.Connected:=True;

     DataModulo.VChamada:=0;

     DataModulo.spsusuarios.Close;

     DataModulo.spsusuarios.Open;

     DataModulo.UserControl.Execute;

   except

     Application.MessageBox( 'Não foi possivel se conectar com o banco de dados.' + #13 +

     'verifique se o arquivo de configuração está configurado, ' + #13 +

     'ou se o servidor firebird está instalado em seu sistema.' + #13 +

     'Verifique tambem se o Usuario secundario esta cadastrado.' + #13 +

     'Entre em contato com suporte para esclarecer qualquer dúvida.',

     'Error Interno', mb_ok + mb_IconError );

   Application.Terminate;

end;