anchor.diff:  begin
     if fSocketServer <> nil then
       fSocketServer.CallAction; //Process network events
  +
  +  if fListening and not fSocketServer.Connected then
  +    raise Exception.Create('Server is no longer listening! Server will restart.');
   end;
   
   
  
positive.code:   fSocketServer.ReuseAddress := True; //Allows us to overwrite an old connection in the wait state rather than saying the port is still in use
    if not fSocketServer.Listen(StrToInt(aPort)) then
      raise Exception.Create('Server failed to start');
  end;
  
  
  
negative.code:   private
      fSocketServer:TLTCP;
      fLastTag:integer;
      fListening: Boolean;
      fOnError:TGetStrProc;
      fOnClientConnect:THandleEvent;
      fOnClientDisconnect:THandleEvent;
  