[dec]

Hola,

No entiendo mucho, pero, ¿podría ser algo así?

SELECT MAX(ID)+1 AS MiCampo FROM Producto

Código Delphi [-]
Max := maxproducto.Fields[0].AsInteger;

// O tal vez...
Max := maxproducto.Fields['MiCampo'].AsInteger;

Ya digo que seguramente no sea, pero, igual suena la flauta.