Duda obteniendo resultado de un query

[AGAG4]

También te funcionará sin el AS

Código SQL [-]
Select MAX(CLAVE_OBRA) CLAVE_OBRA ....

[Posseidon]

Simlemente usa
if Queryx.Fields [0].AsString = '' then
maximo := 1
else
maximo = Queryx.Fields [0].AsInteger;