Hallo Gerrit,
das ist definitiv zu wenig, weil du ohne Form keine message pump hast. Probiere es mal so:
Delphi-Quellcode:
Application.Initialize;
Application.Run;
repeat
Application.HandleMessage;
until Application.Terminated;
Der normale Weg - um Dinge im Hintergrund zu erledigen - ist ein Service. Aber vielleicht hast du ja einen guten Grund für deine Vorgehensweise. Du solltest deiner Anwendung aber noch ein TrayIcon spendieren, damit es einen ordentlichen Weg zum Beenden gibt.
Grüße vom marabu