TreeView - Werte zum Item speichern

[Salomon]

Darauf bin ich auch gestoßen. Allerdings habe ich es noch nicht zum Laufen gebracht.

Der folgende Code lässt sich compilieren, allerdings bekomme ich einen "Listindex put of bound" Fehler. Egal ob ich 0 oder 1 als Item angeben.
Ich würde gerne an die Daten des selektierten Elementes kommen. Wundert mich, das ich da bei Item noch was angeben muss.

Delphi-Quellcode:

procedure TFRM_AM_Administration.Button20Click(Sender: TObject);
var Pointer : TElementPointer;
begin
  Pointer := TreeView.Selected.Item[1].Data;

  showmessage(IntToStr(Pointer^.DBKey));
end;