Máscara de IP - Novamente

Como faço para implementar uma máscara de endereço IP Tipo 000.000.000.000 - Sendo que ao entrar na máscara o número fique centralizado em relação ao quadrante e após a digitação do número ele vai para o próximo quadrante automaticamente? Ou quando a quantidade de números do quadrante seja menor que 3 ao pressionar o a tecla ENTER ele seja deslocado automaticamente para o quadrante seguinte. - Trabalho com o delphi 5