Generar números de serie consecutivos para productos

[ronalg]

Buenas tardes, estoy refinando un programa de compras, ventas y almacenes y necesito ayuda con algo; se trata de que al vender/comprar un producto determinado al por mayor se debe registrar los numeros de serie de los productos uno por uno, siendo que el contenido de una cada de dichos productos tiene las series en secuencia, es muy moroso pasar por el escaner los prosductos.

para esto se me ocurrio (obviamente) hacer un menu meno flotante (TPopupmenu) que entre otras opciones tiene la de "Autocompletar Serie" hasta ahi todo ok, la serie se almacena en un campo varchar(30) (Ojo yo no hice el sistema lo mejoro) , pero cuando vi los tipos de series que manejan dentro de la tienda vi que habian series: NUMERICAS Y ALFANUMERICAS (LO PERO CON TERMINACION EN LETRAS - ESAS SON LAS PROBLEMATICAS)

Se me ocurrio (y esta es mi duda) si puedo convetir el "nro de serie" que es string a binario y de ahi sumarle en un bucle "1" para obtener el siguiente codigo en binario convertirlo nuevamente a string y almacenarlo en la tabla y asi autocompletar las series consecutivas.

¿Es esto factible? (soy neofito en manejo de binario)

Según lo que supongo:

Tengo serie = AF005t9843A en binario podria ser 11010010110101010111101111 por decir algo.

Le sumo uno (tampoco se como hacerloen delphi) osea 11010010110101010111110000

Y "Vuala" lo convierto a string nuevamente y "según yo" deberia obtener AF005t9843B.

Espero que se posible

si lo fuera

¿Como convierto un string a binario y lo regreso a string despues de sumarle 1?

Si no lo fuera

¿Que sugerencia me harian?

Mil gracias de antemano