da würde ich mich dafür interessieren, woher er noch weiß, dass es ein tf1-objekt ist und ob es eine schönere möglichkeit gibt, so ein objekt zu erzeugen ^^
Da hast du nur Glück, das zwischen
FreeAndNil(z1);
und
Writeln((helper as TFBase).Get_irgendwas)
der Speicherbereich, wo z1 mal lag, nicht überschrieben wird.
Besser so:
Delphi-Quellcode:
type
TFBaseClass= class of TFBase;
...
var
helper: TFBaseClass;
...
helper:= TFBaseClass(z1.ClassType);
...
Writeln(helper.Get_irgendwas);
Einbeliebigername.