Verificar usuários conectados no sistema

Boa tarde a todos!!!

estou com o seguinte problema:
tenho um sistema com controle de acesso, onde gero uma chave pra cada máquina conectada pra tentar segurar a pirataria, mas agora surgiu uma situação diferente, pois tenho um cliente utilizando o meu sistema via TS e aí, quando eu libero o servidor para acessar o sistema, automaticamente libero uma quantidade infinita de usuários, porém, esse cara tem direito somente a 6 conexões. Enfim, preciso controlar a quantidade de conexões e pra quando o sistema esta rodando em rede, preciso saber se determinada maquina/usuários estão logados no sistema.

Estou utilizando Delphi6 e Firebird

Desde já, muito obrigado..