Nachrichtenschleife wird nicht beendet

[ferby]

Hallo,

ich habe ein eigenes Fenster mit Nachrichtenschleife erstellt. Wenn ich auf das X vom Fenster klicke,
dann wird aber die Nachrichtenschleife nicht beendet. Habe ich etwas übersehen?
(Also das Fenster verschwindet aber der Prozess bleibt im Task Manager)

Delphi-Quellcode:

program Project1;


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,  StdCtrls;

var
  Form1: TForm;
  Button: TButton;

  Msg: TMsg;
begin
  // Fenster Einstellungen
  Form1 := TForm.Create(NIL);
  Form1.Name := 'Irgendwas';
  Form1.Width := 600;
  Form1.Height := 400;

  // Button Einstellungen
  Button := TButton.Create(Form1);

  Form1.Show;

  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;

end.

Gruß,
Ferby