TObject *obj = g_lst.Lock("ObjectName");
***
g_lst.Unlock("ObjectName");

//--------- Get CS from pool
void Add(const T& Name, TObject*obj){
  // Get CS from pool
  TCriticalSection*cs = m_pool.pop();
  //Verify valid cs
  ***
  //Assign CS with object name
  m_lock.Add(Name,cs);
}

//-------- Lock Object
TObject* Lock(const T& Name){
 TCriticalSection*cs = m_lock.Get(Name);
 cs->Lock();
 return m_obj.Get(Name);
}

//-------- Unlock Object
void Unlock(const T& Name){
  TCriticalSection*cs = m_head.Get(Name);
  cs->Unlock();
}

//-------- Back CS to pool
void Delete(const T& Name){
  TCriticalSection*cs = m_head.Get(Name);
 // Все потоки вызвавшие Lock(Name) должны завершиться, 
 // а новые должны закончится неудачей.
 //????????????????????????????????????????????????????????????
  
  m_head.Delete(Name);
  //Back CS to pool 
  m_pool.push(cs);
}

	
	void Delete(const T& Name){
		TCriticalSection*cs = m_head.Get(Name);
		if(cs){
			cs->Lock();
			m_head.Delete(Name);
			m_obj.Delete(Name);
			m_pool.push(cs);
			cs->Unlock();
		}
	}
	T Lock(const T& Name){
		TCriticalSection*cs = m_head.Get(Name);
		if(!cs)
			throw std::bad_alloc("Object not found");
		cs->Lock();
		TObject *obj = m_obj.Get(Name);
		if(!obj){
			cs->Unlock();
			throw std::bad_alloc("Object not found");
		}
		return obj;
	}

	void Unlock(const T& Name){
		TCriticalSection*cs = m_head.Get(Name);
		if(cs)
			cs->Unlock();
	}