1:
2:
3:

If (Key=Char(VK_RETURN)) And (Edit1.Text<>'')
Then If NOT (NodeExists(Edit1.Text, NIL))
     Then Setliste.Items.AddChild(GetTreeItems(Setliste.Items, Art), Edit1.Text);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function NodeExists(Parent : TTreeNode; Text : String) : TTreeNode;
var i: Integer;
begin
     Result := nil;
     for i := 0 to Tree.Items.Count - 1 do
     begin
       if (Parent <> nil) xor
          ((Parent = nil) and (Tree.Items.Level = 0)) then
      begin
        if (UpperCase(Tree.Items.Text) = UpperCase(Text)) then
        begin
          if (Parent = nil) xor
             ((Parent <> nil) and (Parent = Tree.Items.Parent)) then
          begin
            Result := Tree.Items;
            Break;
          end;
        end;
      end;
     end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function IndexOfNode(ATreeView: TTreeView; AText: String): Integer;
begin
  for Result := 0 to ATreeView.Items.Count -1 do
    if (UpperCase(ATreeView.Items.Item[Result].Text) = UpperCase(AText)) then
      Exit;
  Result := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (IndexOfNode(TreeView1, Edit1.Text) >= 0) then
    ShowMessage('gefunden')
  else
    ShowMessage('nicht drin');