Eindeutige ID für Erben eines Objekts ?

[raven_22]

Hoffentlich bin ich hier in der richtigen Kategorie.
Wenn nicht dann bitte versieben.

Ich erzeuge ein Objekt mit der ID 0
Nun möchte ich andere Objekte von diesem Mutterobjekt ableiten.
Wie schaffe ich es dass sich die ID bei jeder Ableitung um eins erhöht ?

Delphi-Quellcode:

type

   tMyObject = object   // mein Objekt
        Name : string;
          ID : integer;   // ID = 0
end;

LG Marko