Consulta ADOQuery y extraer Campo

[Mteje]

Buenas tardes, quisiera consultarles lo siguiente:

Cuando realizo la siguiente consulta en un ADOQuery

Código Delphi [-]

  Consulta:='Select max('+QuotedStr('CodCli')+')as CodCli from Clientes';
  EjecutarConsulta(Consulta,QueryAux);
  QueryAux.Open;

  DatosTrabajo.ClienteTra:=(QueryAux.FieldValues['CodCli']); //Primera forma
  DatosTrabajo.ClienteTra:=QueryAux.Fields[0].AsString;      // Segunda forma

Donde ejecutar consulta es simplemente un proc que la carga y hace el ExecSQl y DatosTrabajo es un registro con los campos necesarios para guardar informacion.

La cosa es que al Hacer La ultima sentencia en lugar de darme el numero del Codigo del cliente me devuelve 'CodCli'
Les puse las dos formas que intente y no hay caso, le tuve que poner un alias a la columna (CodCli) porque al ser una funcion el valor que devuelve lo hace bajo una columna sin nombre.

Saludos