Array von Unterklassen

[rene50]

Hallo,
ich habe eine Klasse erstellt:

Code:

TMensch = class(TObject)
  Alter : Integer;
  Geschlecht : (gMaennlich, gWeiblich);
  ...
end;

Nun habe ich Unterklassen:

Code:

TSchueler = class(TMensch)
  Schule : String;
end;
TFussballer = class(TMensch)
  Verein : String;
end;

Nun möchte ich die Klassen in einem Array haben. Das ginge ja z.B. so:

Code:

TMenschen = array[0..999] of TMensch;

Das Problem ist jetzt aber, dass ja in diesem Array z.B. nicht die Eigenschaften des Schuelers (Schule) stehen.
Gibt es eine Möglichkeit, dass das trotzdem irgendwie geht? (Natürlich könnte ich die Eigenschaften Schule oder Verein auch
in der Klasse TMensch deklarieren, was bei meinem Projekt aber irgendwann unübersichtlich werden würde)
Hoffentlich kann mir jemand helfen.

Danke im Vorraus