Name einer Klasse "direkt" erhalten

[Helmi]

Hallo,

gibt es eine Möglichkeit, und falls ja welche, um an den Namen einer Klasse zu gelangen?

z. B.: Ich habe eine Klasse TMyClass = packed class (TObject) . Ich würde nun gerne den Namen ermitteln.
Also in dem Falle "TMyClass".

Nun könnte ich es einfach machen und eine Varible definieren und dann mittels ClassName den Namen ermitteln. Also so:

Delphi-Quellcode:

var
  MyClass: TMyClass;

begin
  S := MyClass.ClassName;
end;

Nur gibts auch etwas um auf die Zwischenvariable verzichten zu können? Also irgendwas in der Art:

Delphi-Quellcode:

begin
  S := GetClassName(TMyClass);
end;