Tworzenie aplikacji bez Formy

Witam
Chce sobie zrobić aplikacje w której nie jest potrzebne forma więc przyłanczam na „View source” i tam pisze swój kod. Mam cos takiego:

program Project1;

uses
    Classes,Forms,Dialogs;

{$R *.res}
 procedure Wiadomosc;
 begin
ShowMessage('Procedura');
 end;
begin
  Application.Initialize;
  Application.Run;
  Wiadomosc;
end.

Wszystko było by dobrze gdyby nie to że po wykonaniu procedury program automatycznie się zamyka. Wiec pytam się was co zrobić żeby po wykonanie procedury program nadal był aktywny.

Przepraszam, a co ma niby robic? Skonczyl sie kod procedury, wyskakuje z niej, a pozniej jest end. Na co liczyles?

No tak zgadza się tylko co powinno być jak nie end

Omg, while( true ) se wsadz.

No KO wszystko by było dobrze tylko trochę zbyt duża aktywność procesora. Może jakiś mniej brutalny sposób.

while (true) do
begin
  //jakies operacje
  delay(100); //albo sleep(100) albo cos jeszcze - rozne to ma nazwy w roznych jezykach :/
end;

Oczywiście zamiast 100 dajesz odpowiadającą Ci długość przerwy... Mnie wystarczy ok 5ms.

Wielkie dzięki :-)

Ja sie tylko pytam: Po co to?