Не работает код, можете подсказать, что не так?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UBook;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  TData = TBook;
  TPNode = ^TNode;
 
    TNode = record
    Data : TData;
    PLeft, PRight:TPNode;
end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure AddNode(var aPNode : TPNode; const aData : TData);
begin
  if aPNode = nil then
  begin
    New(aPNode);
    aPNode^.Data.FName := aData.FName;   //Запись всех полей в ячейку, если дерево не создано
    aPNode^.Data.FPages := aData.FPages;
    aPNode^.Data.FKind:= aData.FKind;
    aPNode^.Data.FEdition:= aData.FEdition;
    aPNode^.PLeft := nil;
    aPNode^.PRight := nil;
  end
  else if aData.FName <= aPNode^.Data.FName then  //РАспределение по ИМЕНИ
    AddNode(aPNode^.PLeft, aData)
  else if aData.FName > aPNode^.Data.FName then
    AddNode(aPNode^.PRight, aData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aData: TData;
aPNode : TPNode;
begin
aData:=TBook.Create;
aData.FName:=edit1.text;
aData.FPages:=strtoint(edit2.text);
aData.FKind:=edit3.text;
aData.FEdition:=strtoint(edit4.text);
AddNode(aPNode,aData);
 
end;
 
end.

unit UBook;
 
interface
 
 
type
TBook = class 
 
public
 
FName: string; //Объявляю переменые (F-это поле)
FPages: integer;
FKind: string;
FEdition: integer;
 
  function GetName:string; //Функция для записи
  function GetKind:string;
  function GetPages:integer;
  function GetEdition:integer;
 
  constructor Create(Name: string; Pages: integer; Kind: string; Edition: integer); overload;
  constructor Create(); overload;
  destructor Destroy;
 
  procedure SetName(Name: String); //процедуры для установки значений
  procedure SetKind(Kind: String);
  procedure SetPages(Pages: Integer);
  procedure SetEdition(Edition: Integer);
 
  property Name: string read GetName write SetName; //св-ва для полей
  property Pages: integer read GetPages write SetPages;
  property Kind: string read GetKind write SetKind;
  property Edition: integer read GetEdition write SetEdition;
 
  end;
 
implementation
 
constructor TBook.Create(Name: string; Pages: integer; Kind: string; Edition: integer);
begin
FName:=Name;
FPages:= Pages;
FKind:=Kind;
FEdition:=Edition;
end;
 
 
Constructor TBook.Create();
begin
FName:='Петрович';
FPages:=10;
FKind:='Шлюпка';
FEdition:=60;
end;
 
 
destructor TBook.Destroy;
begin
end;
 
 
function TBook.GetName:string;
begin
result:=FName;
end;
 
function TBook.GetKind:string;
begin
result:=FKind;
end;
 
function TBook.GetPages:integer;
begin
result:=FPages;
end;
 
function TBook.GetEdition:integer;
begin
result:=FEdition;
end;
 
procedure TBook.SetName(Name: String);
begin
  FName:=Name;
end;
procedure TBook.SetKind(Kind: String);
begin
  FKind:=Kind;
end;
 
procedure TBook.SetEdition(Edition: integer);
begin
  FEdition:=Edition;
end;
 
procedure TBook.SetPages(Pages: integer);
begin
  FPages:=Pages;
end;
 
 
 
end.