VirtualStringTree Objekte speichern

[Berni68]

Hallo zusammen,

ich bastel gerade mit einem VST an einer Baumstruktur, in der verschiedene Objekte an Nodes angehängt sind. In etwa so:

Delphi-Quellcode:

type
  TKnotenTyp = (ktAll, ktEx);
type
  TDatObjAll = class(TObject) // <- gibt es hier einen besseren Vorfahr als TObject?? 
    private
      Zahl1: integer;
      String1: string;
      String2: string;
  end;
type
  TDatObjEx = class(TDatObjAll)
    private
      String3: string;
  end;
type
  PDat = ^TDat;
  TDat = record
    KnotenTyp: TKnotenTyp;
    FObject: TObject; // hier dann entweder TDatObjAll oder TDatObjEx
  end;

Klappt soweit auch ganz gut.
Die Frage ist nun, ob es was geeigneteres als TDatObjAll = class(TObject)
gibt, daß man beim Speichern und Lesen des Nodes von Datei
(Ereignisse:

Delphi-Quellcode:

   procedure VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
   procedure VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);

)
Das ganze Objekt à la .SaveTostream bzw .LoadFromStream abhandeln kann.
Gibt es da eine geeignete Klasse?