[chico_bds]

Hola Roman cuando arregle lo que me decias me daba un error con el TStringList, pero gracias a lo que me explicaste lo arregle y aqui dejo todo el codigo arreglado:

Código Delphi [-]
unit u_TBiblioteca;

interface

uses
SysUtils,Dialogs , Classes, ADODB;

Type
TBiblioteca=class

protected

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

//Funciones
function GetLibrosDisponibles:TStringList;

public

constructor create;
destructor destroy;override;

end;

implementation

constructor TBiblioteca.create;
begin

inherited;

cnx:=TADOConnection.Create(nil);
query:=TADOQuery.Create(nil);

//Me faltaba crear el StringList. Ahy tambien da error si no lo creas
LibrosDisponibles:=TStringList.Create;

end;

destructor TBiblioteca.Destroy;
begin
  cnx.Free;
  query.Free;

  // Llamas al destructor de la clase ancestra (TObject)
  inherited;
end;

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 where prestado = 0  ORDER BY titulo asc ';
query.Open;

while not query.Eof do
begin

LibrosDisponibles.Add(query.FieldByName('id').AsString + '->' + query.FieldByName('titulo').AsString);
query.Next;

end;

query.Close;
result:=LibrosDisponibles;


end;


end.

Muchas gracias de nuevo Roman