Unitname anhand Objektreferenz ermitteln

[shmia]

Ein direkter, harter Cast klappt leider nicht:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var 
   test : ITest; 
   obj : TObject; 
begin 
   test := TTest.Create; 
   obj := TObject(test); 
   ShowMessage(_GetUnitName(obj));  // endet leider in einer Zugriffsverletzung