Fórum Conecção dinamica mysql com dbexpress e delphi 7 #134953

Bom dia. Estou usando o delphi 7 com mysql e o dbexpress. Utilizando as informações do banco dentro do conector dbexpress consigo acessar normalmente o banco. Contudo ao tentar acessa-lo dinamicamente não tenho sucesso. Utilizo as instruções abaixo relacionada. Como resolver este problema, já que as informações para alimentar as variaveis de conecção estão corretas.   procedure Twdmo_CADASTROS.DataModuleCreate(Sender: TObject); var ConeccaoCadastro: TSQLConnection; BancoDados,Servidor:String; Drive: TextFile; Arquivo :String; begin Arquivo := 'C:\CompNet.cfg'; {$I-} AssignFile(Drive, Arquivo); try Reset(Drive); except on EINoutError do begin end; end; ReadLn(Drive, BancoDados); ReadLn(Drive, Servidor); CloseFile(Drive); ConeccaoCadastro := TSQLConnection.Create(nil); With ConeccaoCadastro do Begin ConnectionName := 'MySQL50Connection'; DriverName := 'dbxmysql'; GetDriverFunc := 'getSQLDriverMYSQL50'; KeepConnection := True; LibraryName := 'dbxopenmysql50.dll'; LoadParamsOnConnect := False; LoginPrompt := False; Name := 'ConecaoCadastro'; VendorLib := 'libmysql.dll'; Params.Append('DriverName=MySQL50'); Params.Append('HostName=' + Servidor); Params.Append('Database=' + BancoDados); Params.Append('User_Name=root'); Params.Append('Password=gusari'); Params.Append('BlobSize=-1'); Params.Append('ErrorResourceFile='); Params.Append('LocalCode=0000'); Open; End; End;