No viene al caso, pero en las rxLib tenés controles tipo TEdit (No recuerdo el nombre y no tengo delphi para comprobarlo
) que permiten formatos y máscaras. Además poseen la propiedade de AsInteger que te soluciona bastante el trabajo con este tipo de campos.