Como criar um objeto da classe TSQLConnection em tempo de execução e efetuar uma conexão com um banco de dados

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  conn: TSQLConnection;
begin
  // vamos criar um novo objeto da classe TSQLConnection
  conn := TSQLConnection.Create(nil);

  // vamos definir os parâmetros da conexão...note que
  // aqui estou usando uma conexão com o MS SQL Server usando
  // Windows Authentication
  with conn do
  begin
    ConnectionName := 'MSSQLConnection';
    DriverName := 'MSSQL';
    LibraryName := 'dbxmss.dll';
    VendorLib := 'oledb';
    GetDriverFunc := 'getSQLDriverMSSQL';
    LoginPrompt := False;

    // parâmetros adicionais da conexão
    Params.Add('SchemaOverride=sa.dbo');
    Params.Add('HostName=NOTEBOOK');
    Params.Add('DataBase=estudos');
    Params.Add('OS Authentication=True');

    // vamos abrir a conexão
    try
      begin
        Open;
        ShowMessage('Conexão efetuada com sucesso.');
      end;
    except
      on e : TDBXError do // uses DBXCommon
         ShowMessage('Não foi possível efetuar a conexão. Erro: ' +
            e.Message);
    end;
  end;
end;