Una vez que haya establecido todas las configuraciones necesarias de su servidor, hay 2 eventos útiles para saber cuándo el servidor se ha iniciado y cuándo se ha detenido.
Este evento se dispara cuando el servidor se ha iniciado y puede procesar nuevas conexiones.
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
Este evento se activa después de que el servidor se haya detenido y no se acepten más conexiones.
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;