TTreeView передать идентификатор

[lexesv]

Помогите решить такую проблему.

По событию OnDblClick передаю в обработчик
name := TreeMain.Selected.Text;
ну и по нему выбираю
tbl := dbl.GetTable('select * from table where name = "'+name+'" ;');

Но в базе есть повторяющиеся записи name, поэтому нужно выбирать по id

Но вот задача как этот ID добавить в дерево и как потом к нему обратится.

Сейчас добавляю так
TreeMain.Items.AddChild(belong, tbl2.FieldByName['name']) ;
belong - это указатель на гл. item, записи добавляю в subitem-ы

Как в дерево вместе с tbl2.FieldByName['name'] впихнуть ещё и tbl2.FieldByName['id'] ума не приложу....

[Аватар]

Если tbl2.FieldByName('id').AsInteger, то можно так

  TreeMain.Items.AddChildObject(belong,tbl2.FieldByName('name').AsString,Pointer(tbl2.FieldByName('id').AsInteger));
  ...
  Id:=Integer(TreeMain.Selected.Data);

[lexesv]

Сообщение от Аватар

  ...
  Id:=Integer(TreeMain.Selected.Data);

Спасибо огромное!