anchor.diff:    end;
     FreeAndNil(fSocketServer);
     fLastTag := FIRST_TAG-1;
  +  fListening := False;
   end;
   
   
  
positive.code:   private
      fSocketServer:TLTCP;
      fLastTag:integer;
      fOnError:TGetStrProc;
      fOnClientConnect:THandleEvent;
      fOnClientDisconnect:THandleEvent;
  
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;
  
  
  