Inherited destroy Problem

[Jelly]

Hallo,

ich habe mir eine Basisklasse im Wesentlichen wie folgt definiert (aufs Wesentliche reduziert):

Delphi-Quellcode:

type
 TMCExport = class
  public
      destructor Destroy ; virtual ;
  end ;

implementation
destructor TMCExport.Destroy;
begin
     CloseExportFile ; // erst mal unwichtig, was hier drin steht. Ein textfile soll hier nur geschlossen werden

     inherited Destroy ;
end;

Darauf baut eine Klasse

Delphi-Quellcode:

type
  TMCExport_Radial = class (TMCExport)
  end ;

var
 Radial : TMCExport_Radial ;

mit irgendwelchen klassenspezifischen Funktionen.

Radial wird wie gehabt über Create erzeugt. Klappt auch alles soweit. Der Constructor ist in TMCExport definiert, und wird auch wie gewollt aufgerufen.

Durch Radial.free gebe ich meine Klasse wieder frei. Jetzt sagt mir meine Logik, daß da der Destructor destroy aus TMCExport aufgerufen werden soll... Tut er aber nicht.

Was mach ich da falsch?