Kein TForm, Application.Terminated geht nicht!

[edosoft]

Hallo,

Also ich hab hier den source:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.Run;

  while not Application.Terminated do Application.ProcessMessages;
end.

(Also das nur ma zum Test)

Wenn ich das Programm jetzt mit dem Strg.+Alt+Del. (Win 98!!) beende passiert nix. Nach so ner halben Minute oder so kommt dann halt "Programm konnte nicht beendet werden" und "Programm sofort beenden".

Also ich kann des Programm abschießen aber wenn ichs normal beende (z.b. runterfahren) kommt halt zuerst der fehler " Programm konnte nicht beendet werden..."

Wie kann ich das machen?
Danke!

/edit: Ach ja hatte ich vergessen. Ich hab keine TForm und auch keine Andere Unit eingebunden (Ausser "Forms").
Also das ist dann halt der Auszug aus der Project1.dpr