No puedes poner una máscara y obligar al usuario a introducirlo bien??? o tb puedes programartelo tu .. quedaría algo asi... en el evento BeforePost de tu campo (Tfield) :
Código Delphi
[-]
var cuatroprimeros,ochosegundos:string;
i:integer;
i:=0;
while not (encontrado) do
begin
if cadena[i] = '-' then
encontrado:=true
else
Cuatroprimeros:= CuatroPrimeros + cadena[i];
i:=i+1;
end;
case length(Cuatroprimeros) of
0: Cuatroprimeros:= '0000' + Cuatroprimeros;
1: Cuatroprimeros:= '000' + Cuatroprimeros;
2: Cuatroprimeros:= '00' + Cuatroprimeros;
3: Cuatroprimeros:= '0' + Cuatroprimeros;
end;
while i<>length(cadena) do
begin
Ochosegundos:=OchoSegundos +cadena[i];
i:=i+1;
end;
case length(OchoSegundos) of
0: OchoSegundos:= '00000000' + OchoSegundos;
1: OchoSegundos:= '0000000' + OchoSegundos;
2: OchoSegundos:= '000000' + OchoSegundos;
3: OchoSegundos:= '00000' + OchoSegundos;
4: OchoSegundos:= '0000' + OchoSegundos;
5: OchoSegundos:= '000' + OchoSegundos;
6: OchoSegundos:= '00' + OchoSegundos;
7: OchoSegundos:= '0' + OchoSegundos;
end;
Tabla.fieldbyname('TuCampoCadena').asstring := CuatroPrimeros + '-' + OchoSegundos;
Saludos, Tony