Array mit unterschiedlichen Datentypen

[holle]

Hallo, wie kann ich das vereinfachen?

Delphi-Quellcode:

Haus1 := THausA.Create(...);
Haus2 := THausB.Create(...);
Haus3 := THausC.Create(...);
Haus4 := THausD.Create(...);
...

Haus1.Zeichnen;
Haus2.Zeichnen;
Haus3.Zeichnen;
Haus4.Zeichnen;
...

Haus1.TuerAuf;
Haus2.TuerAuf;
Haus3.TuerAuf;
Haus4.TuerAuf;
...

Haus1.TuerZu;
Haus2.TuerZu;
Haus3.TuerZu;
Haus4.TuerZu;
...

Ich würde gerne alle Häuser in ein Array packen und dann über Haus[i].Zeichen; ansprechen. Das funktioniert so allerdings nicht, da Haus1, Haus2, Haus3, ... von verschiedenen Datentypen sind. Weiß jemand, wie ich das hinbekomme?

- Marcel -