Fórum Dbx e MsSql Server dando pau #391054

procedure TDM_Principal.DataModuleCreate(Sender: TObject);
var
 arq_conexao: TiniFile;
 path,
 banco,
 arquivo: String;
begin
  conexao := Sqlconnection1;
  path := ExtractFilePath(Application.ExeName);
  arquivo := path + ExtractFileName('Conexao_Global.ini');
  arq_conexao := TIniFile.Create(arquivo);
  banco := arq_conexao.ReadString('conexao_atual','banco_atual','');
  if banco = 'SqlServer' then
  begin
    SqlConnection1.ConnectionName                          := 'Mairibel';
    SqlConnection1.DriverName                              := 'MSSQL';
    SqlConnection1.GetDriverFunc                           := 'getSQLDriverMSSQL';
    SqlConnection1.LibraryName                             := 'dbxmss30.dll';
    SqlConnection1.LoginPrompt                             := False;
    SqlConnection1.VendorLib                               := 'OleDb';
    SqlConnection1.Params.Values['DriverName']             := arq_conexao.ReadString('SqlServer','DriverName','');
    SqlConnection1.Params.Values['SchemaOverride']         := arq_conexao.ReadString('SqlServer','SchemaOverride','');
    SqlConnection1.Params.Values['DriverUnit']             := arq_conexao.ReadString('SqlServer','DriverUnit','');
    SqlConnection1.Params.Values['DiverPackageLoader']     := arq_conexao.ReadString('SqlServer','DiverPackageLoader','');
    SqlConnection1.Params.Values['DriverAssemblyLoader']   := arq_conexao.ReadString('SqlServer','DriverAssemblyLoader','');
    SqlConnection1.Params.Values['MetaDataPackageLoader']  := arq_conexao.ReadString('SqlServer','MetaDataPackageLoader','');
    SqlConnection1.Params.Values['MetaDataAssemblyLoader'] := arq_conexao.ReadString('SqlServer','MetaDataAssemblyLoader','');
    SqlConnection1.Params.Values['HostName']               := arq_conexao.ReadString('SqlServer','HostName','');
    SqlConnection1.Params.Values['DataBase']               := arq_conexao.ReadString('SqlServer','DataBase','');
    SqlConnection1.Params.Values['User_Name']              := arq_conexao.ReadString('SqlServer','User_Name','');
    SqlConnection1.Params.Values['Password']               := arq_conexao.ReadString('SqlServer','password','');
    SqlConnection1.Params.Values['BlobSize']               := arq_conexao.ReadString('SqlServer','BlobSize','');
    SqlConnection1.Params.Values['LocaleCode']             := arq_conexao.ReadString('SqlServer','LocaleCode','');
    SqlConnection1.Params.Values['ErrorResourceFile']      := arq_conexao.ReadString('SqlServer','ErrorResourceFile','');
    SqlConnection1.Params.Values['MSSQL TransIsolation']   := arq_conexao.ReadString('SqlServer','MSSQL TransIsolation','');
    SqlConnection1.Params.Values['OS Authentication']      := arq_conexao.ReadString('SqlServer','OS Authentication','');
  end;
end;

[conexao_atual]
banco_atual=SqlServer

[SqlServer]
DriverName=MsSql
SchemaOverride=%.dbo
DriverUnit=DBXDynalink
DiverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
HostName=.
DataBase=Cosmeticos
User_Name=
Password=
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000
MSSQL TransIsolation=ReadCommited
OS Authentication=True