procedure TForm1.tr1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
var ini1:TINIFile; b_path,b_detail,b_con,b_create,b_owner : String;
begin try
ini1:=TINiFile.Create(get_res_profile);
b_path:= ini1.ReadString(Node.Text,'path','');
b_detail:= ini1.ReadString(Node.Text,'details','');
b_con:= ini1.ReadString(Node.Text,'comment','');
b_create:= ini1.ReadString(Node.Text,'create','');
b_owner:= ini1.ReadString(Node.Text,'owner','');
ini1.EraseSection(Node.Text);
ini1.WriteString(S,'path',b_path);
ini1.WriteString(S,'details',b_detail);
ini1.WriteString(S,'comment',b_con);
ini1.WriteString(S,'create',b_create);
ini1.WriteString(S,'owner',b_owner);
ini1.Free;
Label1.Caption := S;
Label1.Refresh;
Label2.Caption := S;
except end;End;