TNode=class
private
  FValue:string;
  FLeft,FRight:TNode;
public
  property Left: TNode read FLeft write FLeft;
  property Right: TNode read FRight write FRight;
  property Value: string read FValue write FValue;
end;

//класс "Дерево"
  TTree = class
  private
   Froot: TNode;
  public
    //Процедура добавления узла в дерево
    Procedure Add(var root: TNode; s:string);
    //свойство для получения значения Froot
    property Value: TNode read Froot write Froot;
  end;{TTree}

//метод добавления элемента в дерево
Function TTree.Add(root: TNode; s:string):TNode;
Begin
   //если корень пуст то
  if root = nil then
  Begin
    //создаём его
    Result:=TNode.Create(s);
    exit;//выходим
  End;
  //если добавляемое значение меньше чем значение root.GetValue то
  //добавляем его в левое поддерево
  if AnsiLowerCase(s)<AnsiLowerCase(root.GetValue) then Result:=Add(root.Fleft,s)
  //иначе добавляем в правое поддерево
  else Result:=Add(root.FRight,s);
End;

//метод добавления элемента в дерево
Procedure TTree.Add(Var root: TNode; s:string):TNode;
Begin
   //если корень пуст то
  if root = nil then
  Begin
    //создаём его
    root:=TNode.Create(s);
    exit;//выходим
  End;
  //если добавляемое значение меньше чем значение root.GetValue то
  //добавляем его в левое поддерево
  if AnsiLowerCase(s)<AnsiLowerCase(root.GetValue) then Add(root.Fleft,s)
  //иначе добавляем в правое поддерево
  else Add(root.FRight,s);
End;