Вывести номера уровней данного бинарного дерева, на которых имеются листья

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
Type
  Tkey = integer;
  Ttree=^ Tree;
  Tree = record
    Key: Tkey;
    Left: Ttree;
    Right: TTree;
  end;
 
var
  Form1: TForm1;
   t: Ttree;
implementation
 
{$R *.dfm}
 
Procedure make(Var work:Ttree; x:tkey);
Begin
  New(Work);
  Work^.Key:=x;
  Work.Left:=nil;
  Work.Right:=nil;
end;
 
Procedure insert(Work:TTree; x:Tkey);
Var
  Work2:tTree;
begin
  While work <> nil do
  begin
    Work2:=work;
    if x < work^.key then
      work:=work^.left
    else
      work:=work^.right;
   end;
   Work:=Work2;
  make(Work2,x);
  If (x < work^.key) then
    work^.left:=work2
  else
    work^.right:=work2;
end;
 
Procedure Vvod(var tree: ttree);
var
  Fin: textfile;
  x: tkey;
begin
  assignfile(fin,'Insert.txt');
  reset(fin);
  readln(fin,x);
  make(tree,x);
  while not eof(fin) do
  begin
    readln(fin,x);
    insert(tree,x);
  end;
  closefile(fin);
end;
 
Procedure preOrder(Work:TTree;Var str:string);
begin
  if (Work<>nil) then
  begin
    Preorder(work^.right,str);
    Preorder(work^.left,str);
    str:=str+ inttostr(work^.key)+' ';
  end;
end;
 
Procedure Podschet(Work:TTree;Var s:string);
var
  k:integer;
begin
  k:=0;
  if (Work<>nil) then
  begin
    Podschet(work^.right,s);
    Podschet(work^.left,s);
    if (work^.right = nil) and (work^.left=nil) then
      s:=s+ inttostr(work^.key)+' ';
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  S:string;
  Str: string;
begin
 Vvod(t);
 Preorder(t,s);
 Podschet(t,str);
 label4.Caption:=s;
 label2.Caption:=str;
end;
 
end.

Type
  Tkey = integer;
  PNode=^TNode;
  TNode = record
    Key: Tkey;
    Left: TNode;
    Right: TNode;
  end;

procedure GetLeavesLevels(var Node:TNode; L:TList; level:integer);
begin
  if (node=nil) then exit;
 
  Podschet(Node.right,s, level+1);
  Podschet(Node.left,s, level+1);
 
  if (Node.right = nil) and (Node.left=nil) then
    if l.indexOf(pointer(level))=-1 then
      l.add(pointer(level)); 
end;
 
...
L:=Tlist.Create;
s:='';
GetLeavesLevels(t, L, 0);
// сейчас  в TList - список уровней всех узлов, не имеющих подузлов
// сформируем из него строку
for i:=0 to L.Count-1 do
begin
  s:=s+inttostr(integer(L[i]))+' ';
end;
l.free;
showMessage(s);

if l.indexOf(pointer(level))=-1 then
      l.add(pointer(level));

if L.indexOf(Level)=-1 then
  L.add(level);