[linuxoid]

Код:

type
PRec = ^Rec;
Rec = Record
 S : string;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
R : PRec;
TreeNode : TTreeNode;
TreeNode2 : TTreeNode;
begin
New(R);
R.S := edit2.Text;
TreeNode := TreeView1.Items.AddObject(nil,edit1.Text,R);
end;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
 var AllowChange: Boolean);
begin
if treeview1.Selected<>nil then edit1.Text:=treeview1.Selected.Text;
edit2.Text:= Rec(Node.Data^).S;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
treeview1.SaveToFile('test.trv');  //сохранение
//.........
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
treeview1.LoadFromFile('test.trv');  //загрузка
//...........
end;

Admin: Пользуемся тегами!