WM_NCDestroy - Implementierung erzwingen - aber wie?

[worker]

Hallo,

ich habe ein Klasse (eine Form), in welcher ich die Message WM_NCDestroy behandle.
Innerhalb dieser Behandlungsroutine gebe ich die Instanz selber explizit frei. (Schnittstelle erfordert das)

Nun habe ich von dieser Klasse eine Ableitung erzeugt.

Wie kann ich nun sicherstellen, dass die abgeleitete Klasse ebenfalls diese Message behandelt, um sich selber freizugeben?

Basisklasse:

Delphi-Quellcode:

Type
   TKlasse1 = Class(TForm)
[...]
   protected
      Procedure WM_NCDestroy(Var Message: TWMNCDestroy); message WM_NCDestroy;
[...]
   End;

Var
   Klasse1: TKlasse1;
[...]
Procedure TKlasse1.WM_NCDestroy(Var Message: TWMNCDestroy);
Begin
   FreeAndNil(Klasse1);

   Inherited;
End;