Delphi TreeView

Zdravím,

pokúšam sa nejakým spôsobom pridať položky do TreeView z databázy - chcem vytvoriť štruktúru kategórií. Neviem však ako pristupovať k týmto kategóriám. Viem, že sa dá pristupovať podľa názvu cez funkciu TreeView1.Items.FindNodeWithText('Názov kategórie'), no problém je v tom, že sa častokrát kategórie v názve zhodujú. Jediné, čo je v databázi unikátne je ID kategórie. Neviem však, kde mám to ID vložiť ku každej položke.

Vie mi niekto s týmto pomôcť?

TTreeNode ma aj property s nazvom Data, je to pointer na tebou definovany objekt v ktorom mozes mat ulozene rozne informacie medzi nimi aj ID

Mohol by som ťa poprosiť mi ukázať ako sa s tým pracuje? Pokúšal som sa to tam nejak dostať, ale bez úspechu. Díky aspoň za nasmerovanie.

Našiel som tam procedúru na pridanie:
TreeView1.Items.AddObject(TreeView1.Selected, 'Názov kategórie', Data: Pointer);

a na dohľadanie:
TreeView1.Items.FindNodeWithData(Data: Pointer);

Ako to použiť? Vedel by si mi, prosím, spraviť jednoduchý príklad ako v tomto pridať čo ja viem nejaký string? Môže tam byť aj record?

//edit:

Ak by to šlo cez record, tak by som si to predstavoval nejak takto:
record.id := 20;
record.name := 'nejake-meno';
TreeView1.Items.AddObject(TreeView1.Selected, 'Názov kategórie', record);

a potom to dohľadať cez:
TreeView1.Items.FindNodeWithData(record.id=20);

určite to je teraz zle, je to celé utópia, ale fakt netuším ako to dosiahnuť.

no osobne davam prednost objektu pred recordom. ale mozes to spravit aj tak ze si odvodis vlastny objekt od objektu TTreeNode a jemu pridas novy atribut ID .