Ошибка в коде создания бинарного дерева

unit Unit1;
 
interface
 
uses
  Math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
Type
  PTree = ^TTree;
  TTree = Record
     Data : Integer;
     Left, Right : PTree;
  end;
 
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 function Stree(root,r:PTree;data:Integer):PTree;
     begin
       if r=nil then
       begin
         new(r); { cоздать новый узел }
         r^.left:=nil;
         r^.Right:=nil;
         r^.data:=data;
         if data<root^.data then root^.left:=r
         else root^.right:=r;
         STree:=r;
       end else
       begin
         if data<r^.data then STree:=STree(r, r^.left, data)
         else STree:=STree(r, r^.right, data);
       end;
     end;
 
 
end.

unit Unit1;
interface
 
...
 
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
  function Stree(root,r:PTree;data:Integer):PTree;
  begin
    if r=nil then begin
      new(r); { cоздать новый узел }
      r^.left:=nil;
      r^.Right:=nil;
      r^.data:=data;
      if data<root^.data then root^.left:=r
      else root^.right:=r;
      STree:=r;
    end else begin
      if data<r^.data then STree:=STree(r, r^.left, data)
      else STree:=STree(r, r^.right, data);
    end;
  end;
begin
  // обработка нажатия кнопки
end;
 
end.