Поясните задачку(Delphi)

[Ddr]

Условие: Построить дерево с элементами типа integer и найти среди них максимальный. вот код программы

procedure RandomFillTree(var Node: TTree; const Nodes: integer);
var Left, Right: integer;
begin
    randomize;
    {calc parts (Left, Right)}
    if Nodes = 0 then Exit;
    Left := Random(Nodes);
    Right := Nodes - Left-1;
    New(Node);
    Node^.inf := Round(Random(10000));

    {debug output "trace"}
    Node^.Left := nil; Node^.Right := nil;
    RandomFillTree(Node^.Left, Left);
    RandomFillTree(Node^.Right, Right);
end;
procedure Search_Max(var T:TTree;var elem:integer);
 begin
   if T<>nil
      then
       begin
         if T^.inf>elem
            then elem:=T^.inf;
        Search_Max(T^.right,elem);
        Search_Max(T^.left,elem);
   end;  end;
procedure ShowTree(T: Ttree; s: TtreeNode);
begin
if t <> nil then
with Form1.TreeView1 do
begin
s := Items.AddChild(s, IntToStr (t^.inf));
ShowTree(t^.left, s);
ShowTree(t^.right, s)
end;
end;

Процетируйте пожалуйста с подробным объяснением каждой строчки
вот объявление дерева

Type TTree=^TNode;
        TNode=record
            inf:integer;
            left,right:TTree;
          end;


var T:TTree;
     maxel,x,max:integer;

[Ddr]