Doppelte Einträge in einem TreeView vermeiden

[Coder90]

Hi
Im DF konnte man mir irgendwie nicht helfen, darum versuch ich es mal hier.

Also, ich will auch das man einen Namen nur einmal benutzen kann:

Delphi-Quellcode:

var Item: Integer;

{...}

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  for Item:=0 to TreeView1.Items.Count-1 do
  begin
    if TreeView1.Items[Item]<>Node then 
    if TreeView1.Items[Item].Text=S then
    begin
      MessageDlg('Der Name '''+S+''' ist bereits vorhanden.',mtError,[mbOK],0);
      Node.EditText;
      break;
    end;
  end;
end;

Ich glaube das " Node.EditText; " funktioniert nicht so richtig.