или можно на ассоциативный массив книг
http://ru.wikipedia.org/wiki/Ассоциа..._массив#Delphi
а если надо хранить число пользователей то:
AddObject(TMy.create)
Objects['voina i mir'].plusodin
type Tmy = class
private colvo: integer;
public plusodin; minusodin;
как-то так