[chico_bds]

Hola tengo la siguiente clase que se conecta una bd echa en access y despues la intento llamar desde
un formulario y me da un error:

Aqui tienes la clase y debajo el error

Código Delphi [-]
unit u_TBiblioteca;

interface

uses
SysUtils, Classes, ADODB;

Type
TBiblioteca=class

public

//Variables
LibrosDisponibles:TStringList;
NumUsuarios:Integer;
TotalPrestamos:Integer;
Usuarios:TStringList;
cnx:TADOConnection;
query: TADOQuery;

//Funciones
function GetLibrosDisponibles:TStringList;


end;

implementation

function TBiblioteca.GetLibrosDisponibles:TStringList;
begin

cnx.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=datos.mdb;Persist Security Info=False';
query.Connection:=cnx;
query.SQL.Text:='Select * From t_inventario';
query.Open;

while not query.Eof do
begin

LibrosDisponibles.Add(query.FieldValues['id']+'_'+ query.FieldValues['titulo']);
query.Next;

end;


result:=LibrosDisponibles;

end;

end.

Ahora al intentar llamar la clase desde un boton de la siguiente forma:

Código Delphi [-]
procedure Tf_main.Button1Click(Sender: TObject);
var a:TBiBlioteca;
b:TStringList;
begin

a:=TBiblioteca.Create;
b:=a.GetLibrosDisponibles;

end;

Me da el siguiente error:

raised Exception Class EAccessViolation with message 'Access violation at address 0046F01E'

Saludos y desde ya muchas gracias