Hola
BlueSteel.
Primero que nada, me alegro que hayas resuelto el problema.
Después, a modo de aclaración, voy a reivindicar el código de
movorack, ya que es correcto.
La primera prueba no funcionó por que el nombre de la función agregada
Max es igual al nombre del campo que va a contener su resultado:
max.
Código Delphi
[-]Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 as max From Tarjeta');
Y en la segunda falta la sentencia
AS y el nombre del campo que recibe el resultado:
Código Delphi
[-]Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 AS NOMBRE From Tarjeta');
Saludos.