Como generar un numero entero a partir de una mascarilla dad

[[AzidRain]]

Estoy haciendo un progama contable. NEcesito un tedit que permita la captura de las cuentas bajo una cierta mascarilla. Eso ya lo resolvi con un componente que tengo y me quedo asi:

Primero defino la mascarilla por default digamos: 000-0000-0000
Es decir, tres niveles de 3, 4 y 4 digitos respectivamente.

El TEdit lo ajusté para que me permita capturar sin necesidad de ponerle los ceros, por ejemplo:

en lugar de 001-0001-0001, basta capturar 1-1-1.

Ahora bien, digamos que se capturo lo del ejemplo anterior, la tabla almacena los numeros de cuenta como numeros enteros de manera que 1-1-1 en realidad se almacena como 100010001 (como la mascarilla pero sin los guiones y obviamente las cuentas de primer nivel no necesitan los ceros).

Almaceno las cuentas como numeros porque al momento de hacer ordenaciones me van a quedar en el orden correcto si lo guardo como cadenas el orden no siempre sera el mismo ademas de que es mas trabajo hacer aritmética con ellos.

Habrá alguna función o componente que haga lo que necesito: pasar 1-1-1 a 100010001?

Tengo ya un algoritmo para hacerlo pero quisiera ahorrarme el trabajo y/o el enfado de tardarme unas horas mas en terminar y justo entonces darme cuenta que ya habia algo y mucho mejor.