procedure TForm12.tree1Edited(Sender: TObject; Node: TTreeNode;
  var S: String); var t2:Integer;
begin try
t2:= form2.fav_.ReadInteger(hint,'PageIndex',0);
form2.fav_.EraseSection(hint);
ref_.Strings[ref_.IndexOf(tree1.Selected.Text)]:=S;
form2.fav_.WriteString(hint,'SNAME',S);
form2.fav_.WriteInteger(hint,'PageIndex',t2);
except end;End;