Klassenname als String

[Jonas Shinaniganz]

Wenn ich zum Beispiel eine Klasse habe:

Delphi-Quellcode:

type
  THeinrich = class
    procedure Hallo;
  end;

procedure THeinrich.Hallo;
begin
  ShowMessage('Hello my name is ' + MeinKlassenName);
end;

Das ich eine Message bekomme in der der Name der eigenen Klasse steht. In diesem Beispiel: "Hello my name is THeinrich".

Geht sowas schon? Also universell für alle Klassen?