Name einer Klasse "direkt" erhalten

[himitsu]

Delphi-Quellcode:

S := KlassenVariable.ClassName;

S := TKlasse.ClassName;