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