¿Que tablas usas?
Pues para poder obtener el codigo de tu tabla, nada mas asigna el campo de la tabla a un DBEdit, de ahi tomas el valor.
Para incrementar el codigo, cuando traten de ingresar un nuevo dato, obten el codigo del ultimo registro de la tabla e incrementale 1.
Código:
cCodigo:=DBEdit1.Text; //Asigna el contenido del DBEdit a una cadena
nCodigo:=StrToInt(cCodigo); //Convierte la cadena a numero
Inc(nCodigo); //Incrementa el codigo
Ya incrementado el codigo, lo puedes guardar en un Label, Edit lo que sea para que se muestre y lo vea el usuario.
No se si de algo te sirva mi pequeña explicacion.
