Wieso lässt sich mein Fenster nicht schließen?

[Chewie]

Ich habe mir ein kleines, klassenbasiertes nonVCL-Grundgerüst gebastelt. Das Problem dabei ist nur, dass das Schließen über das Kreuz im rechten Eck (ihr wisst, was ich meine ) nicht richtig funktioniert. Meistens geht es nicht, doch manchmal schon

Vielleicht sieht jemand den Fehler. Da ich nicht weiß, wo der Fehler genau zu suchen ist, häng ich die Klasse mal an. Das Projekt sieht so aus:

Delphi-Quellcode:

program base;

uses
  appbase, Windows, Messages, Dialogs;


procedure Init;
begin
  ShowMessage('Hier bin ich!');
end;

var
  Size: TPoint;
begin
  Size.x := 600;
  Size.y := 400;
  with TAppBase.Create do
  begin
    //OnCreate := Init;
    CreateWindow('Testfenster', Size);
    Run;
    Free;
  end;
end.