Utiliza una tabla auxiliar, y en ella guardas el último número de factura. En el evento OnNewRecord de la factura generas el nuevo número:
Código Delphi
[-]
MiFacturaNumero.Value:=MiTablaAuxiliarnumero.Value +1;
si se confirma la grabación de la factura:
Código Delphi
[-]
MiTablaAuxiliar.Edit;
MiTablaAuxiliarnumero.Value:=MiFacturaNumero.Value;
MiTablaAuxiliar.Post;
Un Saludo.