Conectar banco de dados via codigo

Olá,   Utilizo o componente DBexpress para fazer minha conexões com banco de dados, estou criando um pequeno software que abrirá banco de dados interbase como de firebird mas estou com problemas para fazer a conexão do mesmo via codigo.   function TipoBanco(tip:integer):integer;
begin
   case tip of
      0 : begin
          wconnection := 'FBConnection';
          wdriver := 'Firebird';
          wgetdriver := 'getSQLDriverINTERBASE';
          wlibrary := 'dbxfb.dll';
          wvendorlib := 'fbclient.dll';
          end;
      1 : begin
          wconnection := 'IBConnection';
          wdriver := 'Interbase';
          wgetdriver := 'getSQLDriverINTERBASE';
          wlibrary := 'dbxint.dll';
          wvendorlib := 'gds32.dll';
          end;
      end; end;
A função acima estabelce qual a base de dado será conectada.   procedure conexao;
begin
  DM := TDM.Create(application);
  With DM do
     begin
     conexao.ConnectionName := wconnection;
     conexao.DriverName := wdriver;
     conexao.GetDriverFunc := wgetdriver;
     conexao.LibraryName := wlibrary;
     conexao.LoginPrompt := false;
     conexao.Params.Add('DataBase=nomedb');
     conexao.VendorLib := wvendorlib;
     try
       conexao.Open;
     except
         begin
           ShowMessage('Não foi possível efetuar a conexão.');
           wresult := false;
         end;
      end;
  end;
end;   A procedure por sua vez realiza a conexão com o banco escolhido, nomedb é uma variavel do tipo string que recebe o comando onde esta armazenado o banco de dados. Ex: nomedb := 'G:\BacalaEditorSQL\BDteste.fdb', no caso essa linha de comando esta em um compontente edit. nomedb := txtlinhadecodigo.txt.   Toda vez que tento testar, ele mostra a mensagem 'Não foi possível efetuar a conexão.'   Alguem poderia me ajudar?   Obrigado.