Caixa de texto numérica

Olá amigos delphianos...

Gostaria de saber se existe algum componente ou rotina já criada, que faça como as caixas de texto dos bancos qnd digitamos valores..

Que vá empurrando os números para a esquerda..começando pelo primeiro zero da direita...

exemplo:

tenho: 0,00

digito 10

vai ficar: 0,10

continuo e digito 20

vai ficar

10,20

e assim por diante..

alguém?

Obrigado.