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]);
end;