Delphi - Ayuda con el TTreeview

Queria hacer una agenda de correos con el treeview la forma que tenia pensando era igual a la de VisualBasic que tiene
ADD [Numero][Tipo][Key][Texto][Imagen]
entonces solo hacia
.Add 1,TvwChild,"[email protected]","Res",5
despues hacia Selected.key y cuando hacia click sobre "res" me devolvia --> "res@res,res"
eso quize hacer en delphi y no pude porqu solo esta para indicar
que tipo quieres agregar y el Caption
.Add TTreeNode, Caption
alguna forma de hacerlo como en visual basic ?
para que cuando haga click sobre el caption me devuelva el correo ?
Muchas Gracias de Antemano

Un TTreeView es una coleccion de TTreeNodes, que a asu vez son objetos y como tales tiene muchas propiedades que puedes utilizar, la mas interesante de ellas es Data, que es un apuntador a cualquier cosa, lo mejor es crear una clasesilla y ai meter el email y todo lo que quieras, ai va un intento de ejemplo, no tengo el Delphi a la mano asi que no es seguro que funcione:

//Esta es la definicion de la clase:

type
TDatos = class
email : string;
end;

//este seria el codigo para agregar:

with TTreeView1.Items.AddChild( TTreeView1.Selected, 'Res' ) do begin
Data := TDatos.Create;
TDatos(Data).email := '[email protected]';
end;

Obvio que para recuperar esto debes de hacer referencia a la propiedad Data del nodo: TDatos(TTreeView1.Selected.Data);

Salud2