Vererbung - Designfrage

[semo]

Delphi-Quellcode:

type
  TGeneral = class...

  TSpecified1 = class(TGeneral)...
  TSpecified2 = class(TGeneral)...
  TSpecified3 = class(TGeneral)...

  TList of TGeneral...

Zu Beginn fülle ich meine TList mit TGeneral-Objekten.
Irgendwann zur Laufzeit ermittle ich dann die Typen der Objekte und möchte dann auch entsprechend die TGeneral Objekte in TSpecified1, TSpecified2 und TSpecified3 "einsortieren".

Wie macht man dies am besten?

Meine Idee wäre es, ein neues TSpecified1, TSpecified2 und TSpecified3 zu erzeugen, die properties des alten TGeneral zu übernehmen, dann das alte TGeneral freigeben und das neue TSpecifiedX an den entsprechenden Index in der Liste einzufügen.

Oder gibt es dafür eine schönere Vorgehensweise?