Klasse inkl. aller Unterklassen als Parameter übergeben

[implementation]

Wie wäre es mit sowas?

Delphi-Quellcode:

type
  TElternklasse = class;

  TKindklasse1 = class(TElternklasse)
    ...
  end;

  TKindklasse2 = class(TElternklasse)
    ...
  end;

  TElternklasse = class
  private
    FKind1: TKindklasse1;
    FKind2: TKindklasse2;
  public
    property Kind1: TKindklasse1 read FKind1;
    property Kind2: TKindklasse2 read FKind2;
  end;