anchor.diff:    private
       fSocketServer:TLTCP;
       fLastTag:integer;
  +    fListening: Boolean;
       fOnError:TGetStrProc;
       fOnClientConnect:THandleEvent;
       fOnClientDisconnect:THandleEvent;
  
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: 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;
  
  
  