Klassen-Konstanten

[Puke]

Moin Gemeinde,
Ich muss gewisse Strings interpretieren. Damit ich diese Interpretation in Schleifen durchführen kann, möchte ich Klassenkonstanten festlegen. Nur weiß ich nicht ob es geht und wenn wie .
Wie ich es mir eigentlich vorgestellt hatte:

Delphi-Quellcode:

const
  cloc_classes: Array [0..n] of tclass = (tclass1, tclass2, ...);
var
  loc_object: TObject;
begin
  loc_object := cloc_classes[1].Create;
  // ...
end;

Gibt es etwas ähnliches in Delphi?

Viele Dank und Grüße
Puke