TreeView Node im OnEdited Event umbennen

[Salomon]

Hallo,
Der Titel sagt eigentlich schon alles. Ich mache im OnEditet Event Inserts und Updates auf eine Datenbank. Sind diese nicht möglich weil das Element z.B. schon existiert muss ich irgendwie den text des TreeView Nodes wieder zurücksetzen. Nur scheint das in dem Event nicht zu gehen...

Das haut nicht hin:

Delphi-Quellcode:

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: string);
begin
  Showmessage(S);
  Treeview1.Selected.Text := 'Chaka';
  Node.Text := 'Chaka';
end;