Programm wird nach Start wieder beendet

[Angel4585]

Habs schon: einfach im Quelltext der Projektdatei folgendes:

Delphi-Quellcode:

Application.Initialize;
  Application.Run;
  while not Application.Terminated do
    begin
    Application.ProcessMessages;
    sleep(100);
    end;

braucht auch kaum bis keine CPU