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
end;
end.
Gracias de nuevo por su atención y ayuda.