Добавление нового элемента в двоичное дерево поиск Опции

[Гость_HelpAusHeaven]

У кого-нить есть готовая рекурсивная функция для добавления элемента в двоичное дерево поиска?? (отсортированное... добавление не нарушая порядка...)

[HelpAusHeaven]

type
  TTree=^TNode;
  TNode = record
    Int : Integer;
    Left, Right : TTree;
  end;

var MyTree : TTree;

procedure Add(var Tree: TTree; i: integer);
begin
  if Tree <> nil then begin
    if Tree.Int < i then Add(Tree.Right,i)
    else if Tree.Int > i then Add(Tree.Left,i)
  end else begin
    new(Tree);
    Tree.Int:=i;
    Tree.Left:=nil;
    Tree.Right:=nil;
  end
end;

function TForm1.Find(var Tree: TTree; i: integer):boolean;
begin
  if Tree <> nil then begin
    if Tree.Int < i then Find(Tree.Right,i)
    else if Tree.Int > i then Find(Tree.Left,i)
    else if Tree.Int = i then ShowMessage('I found it!');
  end else ShowMessage('Tree is empty:(');
end;

......
Add(MyTree,5);
Add(MyTree,7);
 ... ... ...
Add(MyTree,3);
Find(MyTree,7);
......

При выполнении этого кода у меня в "поиске" выдается сообщение, что дерево пустое...
Оно пустое, скорее всего, из-за того, что указатель MyTree стоит уже не на вершине дерева, а на одном из "листов" дерева (одной из конечных точек дерева)...
Как мне поправить эту ситуацию?
Заводить ещё одну переменную для хранения адреса памяти вершины дерева?? Или есть другой способ...??