Codigo Subcodigo Sequencial

Boa Noite!

Tenho o seguinte problema:

no meu cadastro de acervo tenho um codigo sequencial que é controlado atraves de codigo no delphi, até ai tudo bem, ai tive que implementar um campo chamado categoria nessa categoria vai ter subcodigos por exemplo:

Categorias: A, B, C, D
a categoria A tem um subcodigo de 100 a 200, a B de 200 a 300 e assim por diante, eu queria que quando o usuario informar a categoria A ele já pulasse para o subcodigo com o numero sequencial:
A - 100 depois A - 101 assim por diante, e o codigo do cadastro tbm ficasse na sequencia dele, sem ser afetado. Seria mais ou menos igual a uma nota de venda onde vc tem que informar a seria e o sistema já puxa o numero da nota automatico, e o codigo do movimento tbm, gostaria de saber como posso fazer isso?

Obrigado.