Поиск элемента в бинарном дереве

    class function Seach(t: Tree; n: string): Tree;
    begin
      Result := nil;
      if t <> nil then
      begin
        if t.Name = n then
          Result := t
        else
          Result := Seach(t.Left, n) or Seach(t.Right, n); // Как переделать эту строчку?
      end;
    end;

uses GraphABC;
 
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
 
type
  Tree = class
    Name: string;
    Parent, Left, Right: Tree;
    
    constructor(n: string);
    begin
      Name := n;
      Parent := nil;
      Left := nil;Right := nil;
    end;
    
    procedure AddLeft(n: string);
    begin
      var t := new Tree(n);
      t.Parent := self;
      if Left = nil then
        Left := t
      else
      begin
        t.Left := Left;
        Left := t;
      end;
    end;
    
    procedure AddRight(n: string);
    begin
      var t := new Tree(n);
      t.Parent := self;
      if Right = nil then
        Right := t
      else
      begin
        t.Right := Right;
        Right := t;
      end;
    end;
    
    class function Seach(t: Tree; n: string): boolean;
    begin
      Result := false;
      if t <> nil then
      begin
        if t.Name = n then
          Result := true
        else
          Result := Seach(t.Left, n) or Seach(t.Right, n);
      end;
    end;
    
    function Seach(n: string) := Seach(self, n);
    
    class function Seach(t: Tree; n: string): Tree;
    begin
      Result := nil;
      if t <> nil then
      begin
        if t.Name = n then
          Result := t
        else
          Result := Seach(t.Left, n) or Seach(t.Right, n);
      end;
    end;
    
    procedure Remove(t: Tree; n: string); // Написание Seach требуется для функции удаления.
    begin
      var tr := Seach(t, n);
      if tr <> nil then
      begin
        
      end;
    end;
    
    procedure Print(n: integer);
    begin
      var str := ' ' * n;
      WritelnFormat(str + 'Имя корня: {0}', Name);
      if Left <> nil then
        WritelnFormat(str + 'Левый потомок: {0}', Left.Name)
      else
        Writeln(str + 'Левый потомок: ссылка равна nil.');
      
      if Right <> nil then
        WritelnFormat(str + 'Правый потомок: {0}', Right.Name)
      else
        Writeln(str + 'Правый потомок: ссылка равна nil.');
    end;
    
    class procedure PrintRecursive(t: Tree; n: integer);
    begin
      if t <> nil then
      begin
        t.Print(n);
        n := n + 3;
        PrintRecursive(t.Left, n);
        PrintRecursive(t.Right, n);
      end;
    end;
    
    class function operator +(s: string; t: Tree): Tree;
    begin
      t.AddLeft(s);
      result := t
    end;
    
    class function operator +(t: Tree; s: string): Tree;
    begin
      t.AddRight(s);
      result := t
    end;
    
    procedure DrawTree(t: Tree; x, y, l, k, h, r: real);
    begin
      var xm := x - l;
      var xp := x + l;
      
      var y2 := y + h;
      
      if t.Left <> nil then RLine(x, y, xm, y2);
      if t.Left <> nil then RLine(x, y, xp, y2);
      Circle(Round(x), Round(y), Round(r));
      
      DrawTextCentered(Round(x - r), Round(y - r), Round(x + r), Round(y + r), t.Name);
      
      l := l * k;
      if t.Left <> nil then DrawTree(t.Left, xm, y2, l, k, h, r);
      if t.Right <> nil then DrawTree(t.Right, xp, y2, l, k, h, r);
    end;
  end;
 
begin
  var T := new Tree('A');
  T := 'B' + T + 'C';
  T.Left := 'D' + T.Left + 'E';
  T.Right := 'F' + T.Right + 'G';
  T.Right.Right := 'K' + T.Right.Right + 'L';
  
  T.DrawTree(T, Window.Width / 2, 20, Window.Width / 5, 0.5, 50, 10);
end.

    class function Seach(t: Tree; n: string): Tree;
    begin
      if t = nil then Result := nil
      else if n = t.Name then Result := t
      else if n < t.Name then Result := Seach(t.Left, n)
      else Result := Seach(t.Right, n);
    end;