Kombinierte Verwendung von Interface + Objektreferenz macht Probleme mit automatisher Referenzzählung.
Wenn du mit Interfaces arbeitest dann nur noch mit diesen!
Das Problem hab ich ja schon erkannt. Die Frage ist wie es zu lösen ist. Ein IWasAnders Interface einführen? Aber wie sieht dann Foos Erzeugung aus?
Wenn du weißt, was du tust, kannst du statt von TInterfacedObject auch von TInterfacedPersistent (classes.pas) ableiten. Dann musst du aber selbst auch für die Freigabe sorgen.
Ursprünglich hatte ich mich ja über die Referenzzählung bei Interfaces gefreut. Für so Fälle wo das stört klingt das aber interessant, wobei der Name ...Persistent irgendwie verwirrt. Muss ich mir mal anschauen.