Message an Procedure

[Desmulator]

Ich bins mal wieder -.-

also es geht darum, dass eine procedur ausgeführt wird, wenn eine bestimmte message an das fenster gesendet wird.
Ich habe eine eigene Klasse geschrieben, die ein fenster erstellt und dieses auf schließung überwacht bzw. soll.

Delphi-Quellcode:

type
  TBaseWindow = class(TObject)
  private
    { FHandle : Enthält den Fensterhandle }
    FHandle : HWnd;
    { ClassName : Enthält den Klassennamen }
    ClassName : PChar;
    { RegClass : Registriert die Classe mit minimalen Einstellungen }
    procedure RegClass;
    { UnRegClass : Unregisterit die Classe }
    //procedure UnRegClass;
    { CreateWnd : Erstellt das Fenster mit minimalen Einstellungen }
    procedure CreateWnd;
    { DestroyWnd : Schließt das Fenster }
    //procedure DestroyWnd;
    { Show : Zeigt das Fenster nach CmdShow an }
    procedure CmdShow(Style : Integer);
    { WMClose : Wenn die Nachricht WM_CLOSE gesendet wird }
    procedure WMClose(var Message: TMsg); message WM_CLOSE;
  public
    { Handle : Gibt den Hwnd zurück }
    property Handle : HWnd read FHandle;
    { Create : Erstellt das Fenster }
    constructor Create(WindowName : String);
    { Destroy : Schließt das Fenster }
    //destructor Detroy;
  end;

Genauer gesagt geht es hierum :

procedure WMClose(var Message: TMsg); message WM_CLOSE; Wie bekomme ich es hin, dass WMClose ausgeführt wird, wenn die message WM_CLOSE gesent wird...

MfG Desmu

Edit: Vllt sollte ich noch sagen, dass ich nur Windows und Messages in der Uses habe