TTreeNode um eine weitere Variable erweitern

[CLRS530]

So ich habe das hier einmal per Suche gefunden und es ist ja sogar noch fast Aktuell.

Ich möchte auch die Property Data benutzen und das sogar nur zum Speichern eines Integer Wertes.
Nun habe ich das mit den Pointern bei Delphi alles noch nicht so hunertpro verstanden, dazu kommt das dauernde hin und her zwischen mehreren Sprachen.

Nun gut, momentan habe ich es so:

Delphi-Quellcode:

  var
    test: integer;
  ShellTreeView1.Items.Item[3].Data:= Pointer(test);
  ShellTreeView1.Items.Item[3].Data:= nil;

Soll einmal nur ein kleiner Auszug sein.
Ohne das am Ende auf nil zu setzen, scheint das nicht zu funktionieren, denn dann bekomme ich Fehler beim Beenden des Programms.

jemand Ideen, wie ich es noch anders machen kann/ wie es ist, wenn test einen anderen Wert annehmen/ gelöscht werden würde.

Gesagt sei noch, das ich in dem Treeview Dateien mit evntl einer Ordnerstruktur darstellen möchte.
Diese werden dann durch eine id festgelegt, wodurch ich sie in einer Datei finden kann.

Mir ist sehr wohl klar, das ich durch eine Ordnerstruktur die Dateien anders finden könnte, aber stellt euch Delphi oder irgendeinen Editor vor, der Listet auch nur alle Dateien auf.
Ich wäre dennoch für alles andere offen *gg*