andwendung stoppen, nachricht anzeigen und danach erfolgreich schließen?

[Coxy]

Hallo,
ich habe einen letzten Fehler:
Der script soll das Programm anhalten eine Nachricht anzeigen und nach ein paar Sekunden schließen.
Leider kommt die Nachricht, das Programm wird nicht angehalten und stürzt ab und wird nicht richtig geschlossen.
Aber wieso? Der Script ist ist doch so banal das er eigentlich stimmen müsste:

Delphi-Quellcode:

if Punkte > 100 then begin
  sleep(10000);
  showmessage('Sie haben gewonnen');
  application.Terminate;
  end