Создать дерево для библиотеки. Узлы – отделы в библиотеке

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    FontDialog1: TFontDialog;
    lv1: TListView;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
     procedure SetViewList(Nd : TTreeNd);
    { Private declarations }
     public
    { Public declarations }
  end;
 
  Type
TBibl = Class
    Avtor : String;
    Name : String;
    Shifr : String;
    Iz: String;
    God:String;
    constructor Create( FAvtor,FName,FShifr,FIz,FGod:string);
 
end;
 
 
var
  Form1: TForm1;
   Zal1,Zal2:TBibl;
implementation
 
{$R *.dfm}
constructor TBibl.Create( FAvtor,FName,FShifr,FIz,FGod:string);
begin
  Avtor:=FAvtor;
  Name:=FName;
  Shifr:=FShifr;
  Iz:=FIz;
  God:=FGod;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
Zal1:=TBibl.Create('Дюма','Три мушкетера','100','Москва','1981');
Zal2:=TBibl.Create('Д. Толкиен','Хоббит','110','Ryazan','2012');
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items.Clear;
        TreeView1.Items.Add(nil ,'Читательский зал');
      TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.Avtor);
      TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.Name);
      TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.Shifr);
      TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.Iz);
      TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.God);
        TreeView1.Items.Add(TreeView1.Items.Item[0],'Абонемент');
      TreeView1.Items.AddChild(TreeView1.Items.Item[6],Zal2.Avtor);
      TreeView1.Items.AddChild(TreeView1.Items.Item[6],Zal2.Name);
      TreeView1.Items.AddChild(TreeView1.Items.Item[6],Zal2.Shifr);
      TreeView1.Items.AddChild(TreeView1.Items.Item[6],Zal2.Iz);
      TreeView1.Items.AddChild(TreeView1.Items.Item[6],Zal2.God);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if colorDialog1.Execute then
 treeview1.Color:=ColorDialog1.Color;
end;
 procedure TForm.SetViewList(Nd : TTreeNd); //вывод дерева пиктограм
var
    // новый элемент списка
    item1: TListItem;
begin
    // добавляем элемент
    item1 := lv1.Items.Add;
    // подписываем пиктограмму
    item1.Caption := TWorkers(nd.Data).FirstName;
    // заполняем колонки табличного списка, т.е. добавляем дочерние эл
    //item1.SubItems.Add(TWorkers(Nd.Data).FirstName);
    item1.SubItems.Add(TBibl(Nd.Data).Avtor);
    item1.SubItems.Add(TBibl(Nd.Data).Name);
    item1.SubItems.Add(TBibl(Nd.Data).Shifr);
    item1.SubItems.Add(TBibl(Nd.Data).Iz);
    item1.SubItems.Add(TBibl(Nd.Data).God);
    // устанавливаем значок элемента
    item1.ImageIndex := 0;   // определяет пиктограммы, индексы которых
                            // соответствует спискам изображений
end;   
 
end.

TreeView1.Items.AddChild(TreeView1.Items.Item[0],Zal1.Title);

function TBibl.Title: String;
begin
Result:=Avtor+' '+ Name+' '+ Shifr +' '+ Iz+' '+God;
end;

TreeView1.Items.AddChildObject(TreeView1.Items.Item[0],Zal2.Title,Zal2);