Error al actualizar máscara TDBEdit
 

Hola a todos.

Tengo un problema cuando actualizo la máscara de un TDBEdit.
El caso es que tengo un TDBEdit asociado a un campo de una tabla a través de un DataSource. La máscara de este TDBEdit la voy cambiando en función del número de dígitos que quiero que muestre.
El problema es que si por ejemplo el TDBEdit contiene 123456 y cambio la máscara con
DB_CODE.Field.EditMask:= StringOfChar('0', 3)+';'+'0'+';'+'_';
para que muestre solo 3 digitos y cambio el dato a mostrar, me aparece por ejemplo 999999
¿Como puedo hacer para que me actualice la máscara y solo me muestre los 3 primeros dígitos del dato (999)?

PD: Soy novato en Delphi y ando algo perdido :confused:

Gracias