Klasse inkl. aller Unterklassen als Parameter übergeben

[Nico93]

Hallo zusammen,

leider brauche ich etwas Hilfe.

Ich habe folgende Klassen (Beispiel):

Delphi-Quellcode:

THauptklasse = class
...
end;

TUnterklasseEins = class(THauptklasse)
    Eigenschaft1: string;
    Eigenschaft2: string;
end;

TUnterklasseZwei = class(THauptklasse)
    Eigenschaft1: string;
    Eigenschaft2: string;
end;

Optimal wäre es jetzt wenn man es irgendwie schaffen könnte, eine Instanz der THauptklasse zu erzeugen und darüber auf die Unteklassen zugreifen könnte, sodass ich bei einem Aufruf einer Prozedur nur die THaupsklasse als Paramter übergeben muss und gleichzeitig die beiden Unterklassen mitübergeben habe.

Beispiel:

Delphi-Quellcode:

....
interface
...
type TTest = class
private
   procedure eins(Hauptklasse: THauptklasse);
   procedure zwei();

end;

implementation

TTest.zwei()
var
  Haupt: THauptklasse;
begin
  Haupt := THauptklasse.Create;
  //Jetzt wäre es gut wenn man irgendwie wie auf eine Eigenschaft der klasse zugreifen könnte. Beispiel:
  Haupt.TUnterklasseEins.Eigenschaft1 := ......;
  eins(Haupt);
end;

TTest.eins(Hauptklasse: THaupsklasse)
var
  test: string;
begin
  //Hier wäre es gut wenn nicht nur die THauptklasse übergeben werden würde, sondern auch die Untergeordneten Klassen und man so über das o. g. Prinzip auf dessen Eigenschaften zugreifen könnte. Beispiel:
  test := Hauptklasse.TUnterklasseEins.Eigenschaft1;
end;

Vielen Dank für die Hilfe und hoffe, dass ich es relativ verständlich erklärt habe, was mein Problem ist.