Mantener viva la aplicación

[HombreGordo]

El hilo que os habéis dejado me ha servido de ayuda para forjar el código necesario para mantener la aplicación viva. Muchas gracias, el código es el siguiente por si alguna otra persona se quedó con la duda:

Código Delphi [-]
program Cirrus;

uses
  IdTCPServer;

{$R *.res}

var
  Server: TIdTCPServer;

begin
  Server:=TIdTCPServer.Create(nil);
  Server.DefaultPort:=23314;
  Server.Greeting.SetReply(200,'Servidor');
  Server.Active:=True;
  while not Server.Active=False do begin
    //Código va aquí... supongo...
  end;
end.

Gracias de nuevo por su atención y ayuda.