eine "class" verändern, Name beibehalten

[Nogge]

Hallo Community,
Ich möchte gern die "class" TTreeNode um einen Word-Wert erweitern, dabei aber den Klassen-Namen beibehalten. So, wie es im unten stehenden Code geschrieben steht, funktioniert es aber leider nicht.

Delphi-Quellcode:

type
  TTreeNode{Ex} = class(TTreeNode)
    private
      { Private declarations }
      GroupID: Word; 
    end;

Ich habe es zuerst mit dem Namen TTreeNodeEx versucht, allerdings nimmt dann ein TreeView dieses Item nicht mehr an. Ich möchte nun nicht noch die TreeView-Klasse umschreiben, weil es einfacher ist, mit einer VCL-Treeview zu arbeiten. Außerdem gefällt mir die Data-Variante auch nicht so sehr => ein wenig umständlich und weniger übersichtlich.
Weiß da jemand eine Lösung?