anchor.diff:    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');
  +  fListening := True;
   end;
   
   
  
positive.code: begin
    if fSocketServer <> nil then
      fSocketServer.CallAction; //Process network events
  end;
  
  
  
negative.code:   end;
    FreeAndNil(fSocketServer);
    fLastTag := FIRST_TAG-1;
    fListening := False;
  end;
  
  
  