Gracias amigos por sus buenos comentarios y tambien por la arreglo del codigo.
Código Delphi
[-]
Este codigo te entrega codigos intercalados debido al
IF (Cod_Tpo_Ncf='0')
Dependiendo de esta condicion obtendra un MAX(Numero) Diferente...
En esta condición tal y como dices depende de otros tipos de numero de facturas.
Nota: Yo he reforozado el codigo y presenta el numero generado cuando guarda la factura, ademas tambien el campo numero de factura esta indexado, realmente mejoro. ya en marcha probare en produccion a ver si todo sale mejor ahi. De todas forma les dejare saber.