Formularname und KomponentenName ermitteln

[Luckie]

Ich habe keine Probleme mit dem Code:

Delphi-Quellcode:

var 
  FormularName: String; 
  aktiveKomponente : String; 
begin 
  FormularName := Self.Name; 
  aktiveKomponente := Self.ActiveControl.Name; // <--- hier zugriffsverletzung aber wieso???? 
  ShowMessage(FormularName + ' ' + aktiveKomponente); 
end;

Geht wunderbar.