MaskEdit es la solucion?

[[maeyanes]]

También podrías usar en tu base de datos 3 campos, uno char(2), y dos integer, y en tu programa solo haces la presentación de esta:

Código Delphi [-]
var
  Numero: string;

begin
  Numero := Format('%s-%.4d-%.4d', [TblFieldChar, TblFieldCont1, TblFieldCont2]);
  // Esto te devuelve una cadena parecida a esta: 'vv-0245-0556'
end;