Die Klasse eines Objektes ermitteln

[wicht]

Delphi-Quellcode:

Item:=TreeView2.Items.AddChild(Parent, Kategorie.Artikel[j].ArtikelName);
Item.Data:=Pointer(Kategorie.Artikel[k]); //Artikel[k] liefert TArtikel zurück

Oben j und unten k?

Delphi-Quellcode:

if (TObject(TreeView2.Selected.Data) is TArtikel) then
begin
  Parent:=TKategorie(TreeView2.Selected.Parent.Data);
end else
begin
  Parent:=TKategorie(TreeView2.Selected.Data);
end;

Und Selected ist nicht nil? Und Selected.Parent auch nicht?